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EDITO 



Avouez que pour 10 balles, on vous 
offre vraiment de bons program- 
mes I Vous pourriez pourtant payer 
encore moins cher ces Hors-Séries... 
Comment ? Cette question I En vous 
abonnant à CPC, pardi I Les abonnés 
à la revue CPC reçoivent, en plus du 
mensuel, les numéros hors-séries que 
nous publions tous les deux mois I 
Vous hésitez encore ? A votre place... 
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Utilitaire 



EDIT2 



Bernard BESSE 



Lorsqu'un programme BASIC en cours de développement atteint 
une certaine dimension, les possibilités de l'éditeur intégré 
deviennent insuffisantes et le besoin d'un éditeur de texte com- 
mence à se faire sentir. 



-~J 




Mais ce que l'on gagne en puissance 
avec un éditeur séparé, on le perd en 
souplesse car, même pour des opéra- 
tions limitées, il faut : 

— sauvegarder en ASCII (s'il ne l'est 
déjà) le programme à "éditer", 

— charger l'éditeur, 

— charger le programme à éditer. 

Et à la fin du travail : 

— sauvegarder le programme édité, 

— charger le programme édité. 

Contrairement aux éditeurs séparés, 
l'éditeur intégré opère en "temps réel" 
puisque, sitôt une modification effec- 
tuée, il est possible d'exécuter le pro- 
gramme, sans avoir à charger ou sau- 
vegarder quoi que ce soit. 
Le programme EDIT2 a pour but d'ajou- 
ter aux possibilités de l'éditeur intégré 
les fonctions temps réel suivantes : 

— trouver toutes les occurrences d'un 
NOM de variable, 

— trouver toutes les occurrences d'un 
NUMERO de ligne. 



Ces fonctions permettent notamment : 

— de créer un nom de variable en 
toute connaissance de cause, 

— de vérifier si les noms des variables 
figurant dans une routine à MERGEr ris- 
quent d'interférer avec ceux déjà pré- 
sents dans le programme, 

— de changer d'une façon sûre le nom 
d'une variable, 

— de s'assurer qu'une ligne n'est pas 
référencée avant de la supprimer. 

MISE EN OEUVRE 

EDIT2 est stocké en format ASCII à 
partir de 60000. 

Après chargement du programme en 
cours de développement : 

— créer une ligne 1 GOTO 60000 

— faire MERGE "edit2 

Faire RUN (ou RUN 60000 s'il n'y a pas 
la ligne 1 déjà citée), puis : 

— choisir la sortie sur imprimante ou 
sur écran. 



— entrer un nom de VARIABLE ou un 
NUMERO de ligne (pour revenir à la 
question précédente "Imprimante ou 
Ecran", faire seulement ENTER). 

La variable peut être écrite en majus- 
cules ou en minuscules (ou un mélange 
des deux). 

On ajoute les suffixes %, !, $ s'il y a 
lieu et, si la variable est indicée, une 
parenthèse gauche. 
Exemple : blduLE$ [sans espaces] 

Renumérotation du programme édité : 

— on peut, au cours du traitement, 
faire RENUM sans être obligé de réta- 
blir la numérotation d'EDIT2 à partir de 
60000 

D'où l'intérêt de la ligne initiale 1 GOTO 
60000 

EDIT2 s'arrête par BREAK. 

POINTS PARTICULIERS 

La recherche se fait principalement par 
INSTR et non par PEEK (c'est beaucoup 
plus rapide). 

Le procédé utilisé est celui de la chaîne 
forcée, on force dans les 3 octets du 
descripteur d'une variable Z2$ (des- 
cripteur créé en faisant ZZ$ = "") : 

— la longueur de la ligne, 

— l'adresse de la ligne (2 octets). 

Le numéro d'une ligne référencée peut 
exister sous deux formes : 

— le numéro lui-même en binaire sur 
2 octets, 

— l'adresse de la ligne en binaire sur 
2 octets. 

La routine ADRLINE a pour but de trou- 
ver rapidement l'adresse de la ligne 
dont on recherche les occurrences. 

EDIT2 s'arrête, non pas sur le test 
NUMERO ligne > =60000, mais sur le 
test ADRESSE ligne >= ADRESSE 
1ère d'EDIT2, ce qui permet l'utilisation 
de RENUM. 

A la fin d'une séance, si la mise au 
point n'est pas terminée, il est souvent 
souhaitable de SAUVEGARDER 
ensemble le PROGRAMME + EDIT2. 
On est ainsi prêt à opérer dans les meil- 
leurs délais à la séance suivante. 

Pour traiter EDIT2 par EDIT2 : 

— charger EDIT2, 

— RENUM 62000, 

— MERGE"EDIT2, 

— créer ligne : 1 GOTO 62000, 

— RUN. 

L'attention de nos fidèles lecteurs est 
attirée sur les routines machine KDEEK 
et KDOKE (1 er K pour déKalage) plus 
versatiles que DEEK et DOKE. 




60660 :GQTO 60056:THEN 61130 

*** Ne pas enlever cette 1ère Ligne *** 
60e 10 p$="edi-t2":PRINT CHR*(7!CHR$(PEEK( 
S-A760)+65)" : "p$" Ascii": SAVE P*,a:END 

66020 ' 

60030 '(cl Bernard BESSE 

60040 ' 

60050 : 

60060 CLEAR:ON BREAK 60SUB 61 110: MODE 2: 
DEFINT a-::vr=-l:fa=0:zz$="" 
60070 " CALL êkdeek(l), Adresse de 'Base, 
Déplacement, SRI (Rl=Val. DEEK) 
6Ô080 DATA DD,6E,04,DD,66,05,DD,5E,02,DD 
,56,03, 19, 5E, 23, 56 

60090 DATA DD,6E,00,DD,66,01,73,23,72,C9 
60100 RESTORE 60686: DIM kdeek(13) :rl=0 
60110 FOR k=l TO 13:READ l*,m$:kdeek(k)= 
vAL("*.:H"+m$+l*):NEXT k 
60120 '" CALL êkdoke(l), Adresse de Base, 
Déplacement, Valeur a DQKER 
60130 DATA DD,6E,04,DD,.66,05,DD,5E,02,DD 
,56,03,DD,4E,00,DD 
60140 DATA 46,01, 19,71, 23,70, C9, 00 
60150 RESTORE 60136: DM kdoke(12) 
60160 FOR k=l TO 12:READ l*,m$:kdoke(k)= 
VAL("&.H"+m$+l*>:NEXT k 
60170 ' CALL eadrlineil), NUM, SRI (Rl= 
adr.de la ligne NUM) 

60180 DATA DD,4E,02,DD,46,03,FD,21,6F,01 
,FD,6E,03,FD,66,04 

60190 DATA B7,ED,42,28,14,30,0E,FD,5E,01 
,FD,56,62,7B,82,28 

60200 DATA 04,FD,19,18,E5,FD,21,00,00,FD 
,E5,D1,DD,6E,00,DD 
60210 DATA 66, 01, 73, 23, 72, C9 
60220 RESTORE 66186: DIM adrline(27):rl=0 
60230 FOR k=l T0'27:READ l$,m$:adrline(k 
)=VAL("&"+m$+l$):NEXT k 
60240 RESTORE 60000: CALLSkdeek ( 1 ), &AE36, 
0,ërl:adr6000e=rl" adr 1ère ligne 
60250 : 
60260 CLS:PRINT"\I>mprimante ou <E>cran 

f M ■ 
< 

60270 WHILE INKEY*0" u :WEND 

60280 ie*=UPPER*(INKEY$):IF ie$=""THEN 6 

0280 

60290 IF ie$="E"THEN ca=6 ELSE IF ie$="I 

"THEN ca=8 ELSE PRINT CHR$(7):G0T0 60250 

60300 PRINT ie$ 

60310 : 

60320 -deb-368: nusF-f a: re-f =6 



60330 INPUT"Nom (VARIABLE) ou Numéro (LI 

GNE! ";name$:nm$=name$ 

60340 IF name*=""THEN 60256 

60350 IF INSTR(name$," ")>0 THEN PRINT C 

HR$!7);:G0T0 60310 

60360 name*=UPPER* (name*) : lv=LEN (name$) : 

pg=-fa 

60370 car. ok$=" . ABCDEFGHI JKLMNOPQRSTUVWX 

YZ1234567890" 

60386 xx=INSTR(car.ok*,LEFT*(name*,l) ) : I 

F xx<2 THEN PRINT CHR*(7);:G0T0 60310 

60390 IF xx<28 THEN 60510 

60400 IF VAL(name*)=0 OR VAL(name$)>6553 

5 THEN PRINT CHR$(7);:G0T0 60310 

60410 FOR k=2 TO lv 

60420 IF INSTR(car.ok$,MID$(name$,k,l) 

X28 THEN PRINT CHR$(7);:G0T0 60316 

66430 NEXT'k 

60440 :line!=VAL(name$):IF iline!>32767 

THEN :line=zline!-65536 ELSE :hne=zline 

i 

66450 lsb=PEEK(ezline):fflsb=PEEK(ê:line+l 

> 

6Ô460 look2$=CHR*(30)+CHR*(lsb)+CHR$imsb 

) 

60470 CALLeadrline(l),zline,@rl 

66480 lsb=PEEK (©ri): msb=PEEK (§rl+l ) 

66496 look 1$=CHR$ (29) +CHR$ ( lsb ) +CHR$ (msb 

) 

66500 num=vr:G0T0 60680 

60510 : 

60520 IF RIGHT$(name$,l)="("THEN pg=vr:n 

ame$=LEFT$(name$, lv-1) : lv=lv-l 

60536 IF RIGHT$(name*,l)="X"THEN type=2: 

GOTO 66576 

66540 IF R*GHT$(name*,l)="$"THEN type=3: 

GOTO 60570 

60550 IF RIGHT$ (name*, 1)="! "THEN type=4: 

GOTO 60576 

60560 type$="":G0T0 66590 

60570 : 

60580 type$=CHR*(type) :name$=LEFT*(name$ 

,lv-l):lv=lv-l 

66590 : 

60606 IF lv=l THEN 60646 

66610 FOR k=2 TO lv 

60620 IF INSTR(car.ok$,MID$(name*,k,l) 

)=6 THEN PRINT CHR$(7);:GOT0 60310 

60630 NEXT k '\ 

60640 : 

60650 der*=RIGHT$(name$, 1) :name$=LEFT$(n 

ame$,lv-l):lv=lv-l 

66666 der=ASC(der$):maju=der+128:IF der> 

=65 AND der<=96 THEN minu=maju+32 ELSE m 

inu=maju 

66670 look2$=type*+STRING$ (2,6) 

66686 : 

66690 ' — Recherche et Af -fichage — 

60700 PRINT#ca, "LIGNES contenant VARIABL 



E (ou LIGNE): ";nm$ 
66710 PRINTftca, " 



66720 lg=0 

60730 : 

60740 deb=deb+lg:CALLekdeek(l),deb,0,erl 

:lg=rl:IF lg=0 THEN 61086 

60750 CALLêkdeek ( 1 ) , deb , 2, @r 1 : n 1 ine=r'l 

66760 IF nline>0 THEN nline!=nline ELSE 

nline!=65536+nline 

60776 IF deb>adr60660 THEN 61080 

60786 IF lg>255 THEN PRINT#ca:PRINT#ca, " 

Réduire long. ligne";nline!; "SVP": END 

60790 POKESzz*, lg:CALLekdoke(l) ,êzz$, l,d 

eb 

66800 cl=l 

60816 : 

60820" IF NQT num THEN 60876 

66830 yy=INSTR(cl,zz$,lookl$)::«=INSTR(c 

l,zz*,look2$) 

66840 IF (xx OR yy)=0 THEN 60736 

66856 IF yy>6 THEN IF xx=6 THEN xx=yy EL 

SE xx=MIN(xx,yy) 

60860 GOTO 60890 

60870 : 

60880 xx=INSTR(cl,zz$,look2$):IF xx=6 TH 

EN 60730 

60890 : 

66900 d=xx+l 

60910 IF num THEN 61056 

60920 ad=deb+xx+lv+2: IF type$=""THEN ad= 

ad-1 

60930 IF PEEK(ad)<>uaju AND PEEK(adK>(ni 

nu THEN 66816 

66946 IF UPPER$(MID*(zz$,xx+LEN(look2$), 

lv))Oname*THEN 66816 

60950 FOR k=ad+l TO deb+lg-1 

61)960 IF PEEK(k)=32 THEN 60996 

60970 IF PEEK(k)=40 THEN IF pg THEN 61 

026 ELSE 60810 

66980 IF pg THEN 66816 ELSE 61626 

66996 : 

61066 NEXT k 

61610 IF pg THEN 66816 

61620 : 

61036 IF type*<>""THEN 61056 

61646 type=PEEK(deb+xx-2):IF type<ll OR 

type>13 THEN 66816 

61656 : 

61666 IF re+ MQD 13=6 THEN PRINTftca 

61676 PRINT#ca,USING"######";nline!;:ref 

=ref+l:GOTO 60816 

61686 : 

61690 PRINT#ca:PRINT#ca, " 



61106 GOTO 66310 

61116 :REM<BREAK> 

61126 CLEAR:END:RETURN 

61136 : '** LIGNE FIN - Ne pas enlever ** 



Educatif 
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RIVIERES 



Gérard JOULAIN 




Le titre est éloquent, le reste coule 
de source. 

A signaler, pour les 664 et 6128, 
un décalage des caractères élargis. 
Mis à part cela, le programme fonc- 
tionne correctement. 



M ' FRANCE - RIVIERES 
20 ' 

30 MEMORY &9FFF 

40 FOR A=fcAO00 TO &A0AE 

50 READ B$:P0KE A.VALCV+B*) 

60 NEXT 

70 CALL &A0O0 

80 DATA O1,09,AO,21,39,A0,C3,D1 

90 DATA BC,1A,A0,C3,3D,A0,C3,50 

100 DATA A0,C3,6B,AO,C3,7B,AO,C3 

110 DATA 93,A0,4D,4F,44,45,30,B1 

120 DATA 4D,4F,44,45,31,B1,4D,4F 



130 DATA 44,45,30,B2,4D,4F,44,45 

140 DATA 31, B2,W, 4F, 44, 45, 32,82 

150 DATA 00, 00, 00, 00, 00, FE, 00, C0 

160 DATA 3E,0O,32,C8,B1,3E,CC,32 

170 DATA CF,B1,3E,33,32,D0,B1,C9 

180 DATA FE,0O,C0,3E,O1,32,C8,B1 

190 DATA 11,CF,B1,21,64,AO,01,04 

200 DATA 00,ED,B0,C9, 88,44,22, 11 

210 DATA FE,00,C0,3E,O0,32,Ce,Bl 

220 DATA 3E,FO,32,CF,B1,3E,0F,32 

230 DATA D0,B1,C9,FE,OO,CO,3E,01 

240 DATA 32,C8,B1,11,CF,B1,21,8F 

250 DATA A0,01,04,OO,ED,B0,C9,C0 

260 DATA 30,0C,03,FE,OO,CO,3E,02 

■270 DATA 32,C8,B1,11,CF,B1,21,A7 

280 DATA A0,01,08,00,ED,B0,C9,8O 

290 DATA 40,20,10,08,04,02,01 

300 RESTORE 350 

310 FOR A=5tA2E6 TO &A2E6+148 

320 READ B$:F'QKE A,VAL("&"+B$) 

330 NEXT 

340 CALL &.A2E6 

350 DATA 01,F3,A2,21,EF,A2,C3,D1,BC,0O,O 

0, 00,00, F8 

360 DATA A2,C3,FE,A2,44, 48,41, 55,D4,00 



370 DATA DD,6E,O0,DD,66,01,46,23,5E,23 
380 DATA 56,EB,7E,E5,OE,20,91,6F,26,O0 
390 DATA C5,06,O3,54,5D,19,10,FB,11,0O 
400 DATA 39,19,3E,19,CD,5A,BB,3E,FE,CD 
410 DATA 5A,BB,06,04,CD,O6,B9,4F,5E,79 
420 DATA CD,0C,B9,7B,CD,5A,BB,CD,5A,BB 
430 DATA 23,-10,ED,3E,19,CD,5A,BB,3E,FF 
440 DATA CD,5A,BB,06,O4,CD,O6,B9,4F,5E 
450 DATA 79,CD,0C,B9,7B,CD,5A,BB,CD,5A 
460 DATA BB,23,10,ED,3E,FE,CD,5A,BB,3E 
470 DATA OA,CD,5A,BB,3E,08,CD,5A,BB,3E 
480 DATA FF, CD, 5A, BB, 3E, OB, CD, 5A, BB.C1 
490 DATA El, 23, 10,90, C9 
500 MODE 2: BORDER 21 

510 !M0DE12:LOCATE 14,2:F'RINT "Gérard JO 
ULAIN":F0R 1=1 TO 1OO0:NEXT 
520 !M0DE22:L0CATE 36,6:PRINT "présente" 
:F0R 1=1 TO 500: NEXT 
530 !M0DE02:L0CATE 6,12:A*="LA FRANCE":! 
DHAUT,9A$:L0CATE 8,16:PRINT "et 5es":L0C 
ATE 5,19:A$="C0URS D'EAU": :DHAUT,êA$ 
540 !M0DE22:L0CATE 38,24:F'RINT "1986" 
550 RUN "rivière" 



10 ' FRANCE - RIVIERES II 

20 ' 

30 DIM RI$(66),RX(66),RY(66),BA$(66),VI$ 

(81),VX(81),vY(81),RIV$(8i),vA$(81),DE(8 

1) 

40 GOSUB 4730:G0SUB 4970:POKE !<B4E8,255: 

GOTO 3050 

50 DATA -10,-3,-6,-1,-4,-4,-2,-2,0,-18,- 

1,-4,-5,-8,-8,-6,-2,0,-2,-2,-4,0,-6,-4,- 

4,0,-4,-8,2,-2,4,-1,-4,-1,-8,-6,-4,3,-10 

,1 

60 DATA -6,2,-4,-2,0,4,-4,0,-2,4,4,4,-4, 

2,-6,-2,-8,2,-1,-1,3,-3,0,-6,8,-10,-2,-4 

,1,-12,3,-2,-10,-2,0,4,-4,0,-4,-4 

70 DATA -2,2,0,2,-4,0,-6,-6,-10,14,-10,- 

2,-3,-6,-5,2,0,-4,-2,0,-2,4,-12,-2,-8,-4 

,2,-4,4,1,6,0,0,-4,-5,0,-2,2,-1,-1,0,-4 

80 DATA 1,-1,0,2,6,0,0,-4,-6,0,-4,-2,6,- 

4,2,-6,4,0,0,4,6,-2,2,-2,3,1,8,-4,2,-2,2 

, -4, 2, -j, 0,3, 4, 1,5, 1,2, -j 

90 DATA -4,0,1,-2,4,-1,6,1,1,-3.-3,-1,0, 

-4,2,-Z,8,2,j, l,6,-j,-j,ii,-5,-i,4,-'2,i,- 

4,-4,-4,0,-4,8,-10,8,-6,10,-2,-4,-4,4,-4 

,0,-6,-4,-4 

100 DATA 0,-3,8,-3,6,-8,2,-12,-4,10,-10, 

8,0,-18,-2,-22,0,-4,-6,-28,-2,-4,-3,-4,- 

110 DATA -1,3,3,0,2,-4,6,-2,4,0,8,-6,5,2 

,5,-2,4,-4,6,2,0,-2,12,1,0,5,10,-2,2,-2, 

4,0,4,-4,2,2,8,-3,-2,-3 

120 DATA 2,-2,4,0,2,-4,8,4,8,-5,3,1,-1,3 

,8,2,5,0,0,2,-4,4,1,2,0,12,-3,3,2,2,2.-2 

,5,5,6,2,14,12,3,-4 

130 DATA 6,-2,5,-4,0,5,-3,1,-2,-2,5,-4,6 

,1,0,4,3,0,3,-4,8,2,2,-2,-2,-2,13,-3,6,- 

4,2,2,10,0,8,6,-3,2,1,2,8,4,-1,2,7,4,0,2 

140 DATA 12,4,-2,6,6,4,-4,4,-5,-2,-12,4, 



-3,4,0,4,-2,4,4,6,0,4,-6,2,-6,6,0,2,10,2 

,2,4,2,8,-6,4,0,4,-4,4 

150 DATA 6,8,-8,6,-2,6,-4,4,-6,-2,-5,-3, 

1,-3,-4,-3,-4,-1,-1,2,5,4,-2,6,2,6,6,8,- 

2,5,6,2,10,12,-6,0,6,6,2,-4 

160 DATA 6,2,2,4,-2,6,2,10,-2,4,4,10,0,1 

0,8,12,-4,2,-10,0,-6,4,-4,-2,-3,0,-2,3,- 

3,-1,0,-2,-2,0,-8,12,-2,0,-2,2,-8,-4,-4, 

4,-4,8,-2, -2 

170 DATA -8,6,-8,4,0,4,-2,0,0,8,-3,0,-3, 

-8,-8,0,0,6,-2,2,0,4,-4,2,-8,0,-2,6,-6,0 

, -5, 8, -5, -2, -8, 4, 0, 6, -3, 4, -100, 100 

180 RESTORE 190: GOTO 4890 

190 DATA -2,4,0,2,-4,4,1,2,-2,4,-3,4,-3, 

4,-4,2,-2,4,-3,2,-3,3,-3,2,-6,-3,-4,0,-4 

,-3,-4,-1,-4,0,-3,2,-1,2,-4,2,-4,4,0,2,2 

,2,-3,3,-3,-1,1,4,-3,-2,0,4,-2,0,-1,-3,- 

3,2,-3,-2,-2,2,-2,-1,1,3,0,2,-2,-2,-5,5, 

1,2,-1,2,-2,-2,0,2,-3,1 

200 DATA -3,0,0,1,2,1,0,3,-2,0,-2,-3,-2, 

4,-1,-3,-1,2,0,2,-2,2,-2,-2,0,-2,-2,0,-2 

,2,-2,-2,-100,90 

210 RESTORE 220: GOTO 4890 

220 DATA -4,5,-5,3,-1,9,-13,11,-5,2,-6,1 

,-100,90 

230 RESTORE 240: GOTO 4890 

240 DATA 1,2,-5,8,0,12,-4,5,-9,1,-5,8,-6 

,5,-1»., 2, -8, -3, -2, -■},-.■, 1,-3,-1,0,2,-i, 1 

,0,-1,-1,0,0,-2,-4,1,0,-2,-3,0,1,-2,-3,1 

,-1,-1,-100,90 

250 RESTORE 260:BOTO 4890 

260 DATA -4,-2,-2,-2,-4,0,-6,-2,-2,2,-2, 

-4,-4,-3,0,-5,-6,-2,-2,-2,0,-1,-2,0,-2,- 

2,-2,-5,-4,0,-3,-2,-2,-4,-3,-1,-4,-3,0,- 

2,-100,90 

270 RESTORE 280: GOTO 4890 

280 DATA -4,2,-4,4,0,8,-4,2,0,4,-4,3,-8, 

0,-7,-5,-10,0,-3,-2,-6,2,-2,1,-100,90 

290 RESTORE 300: GOTO 4890 

300 DATA 2,-4,0,-8,-2,-4,0,-2,-100,90 

310 RESTORE 320: GOTO 4890 

320 DATA 0,4,-6,4,-5,10,2,6,-4,8,0,4,-5, 

2,-1,4,-4,7,-3,1,-100,90 

330 RESTORE 340: GOTO 4890 

340 DATA -6,8,0,4,-4,4,-4,2,0,2,-6,4,-6, 

0,-100,90 

350 RESTORE 360: GOTO 4890 

360 DATA -4,2,-3,4,0,6,-3,2,-2,13,4,2,-1 

00,90 

370 RESTORE 380: GOTO 4890 

380 DATA 16,-4,1,8,-4,4,-1,3,2,3,-7,10,0 

,5,-100,90 

390 RESTORE 400: GOTO 4890 

400 DATA 4,2,4,9,-2,9,-2,2,-2,0,-6,3,-10 

0, 100 

410 RESTORE 420: GOTO 4890 

420 DATA -2,-4,-4,4,-2,6,0,4,4,2,1,4,3,4 

,0,6,-2,4,0,4,-4,6,0,2,2,2,-3,10,-2,2,1, 

3,-6,2,-2,5,-4,5,-4,1,-4,4,-4,0,-2,8,-2, 

4,0,8,-6,4,-6,4,-4,2,-2,2,-4,0,-2,2,-2,1 

,-4,2,-4,-5,-6,-6,-10,-5,-5,1,-9,-4,-4,- 

3 



430 DATA -3,-1,-3,0,-6,7,-4,1,-4,-1,-2,- 

.3, -4,2,-10,-2,-6,-4,-'4,-l, -6,3, -100,90 

440 RESTORE 450: GOTO 4890 

450 DATA 3,-1,-3,7,-6,10,-6,4,1,6,-5,10, 

1,6,1,4,2,4,0,8,-4,10,0,4,-2,4,-6,4,1,6, 

-100,90 

460 RESTORE 470: GOTO 4890 

470 DATA -2,2,0,12,1,2,0,8,-1,4,-6,7,-4, 

5,-2,7,-8,4,-6,-1,-9,3,-8,1,-3,2,-2,0,-4 

,-2,-4,0,-100,90 

480 RESTORE 490: GOTO 4890 

490 DATA -5,6,-3,2,-4,6,-8,2,-7,4,-5,8,- 

4,3,-2,1,-4,-2,-6,2,-100,90 

500 RESTORE 510: GOTO 4890 

510 DATA -2,1,-2,-1,-6,2,-7,5,-7,-3,-2,3 

,-4, l,-4,--l, -2,2,0, 19,-2,6,-2,4,2, 10,-2, 

2,0,2,-4,1,-2,-1,-5,4,-3,2,-100,90 

520 RESTÛRE 530: GOTO 4890 

530 DATA 2,4,0,4,-8,10,-8,6,-2,4,-2,2,-1 

2,2,-4,5,-2,1,-2,5,-2,1,-100,90 

540 RESTORE 550: GOTO 4890 

550 DATA -4,1,-2,3,-4,1,-1,3,-3,2,-6,4,- 

3,2,-3,2,0,1,-100,90 

560 RESTORE 570: GOTO 4890 

570 DATA -2,-3,-8,-4,-4,-2,2,-2,5,-1,-1, 

_"7 O _7 (Â -L -7 _0 _"7 1 _1 _T _9 û _? 1 
•_',*., J ï u * °ï J ï *■} J ? M M J 1 M u ï *ï M 

-2,-1,-2,-2,-1,-4,-1,-1,-1,-3,-100,90 
580 RESTORE 590: GOTO 4890 
590 DATA 2,-1,3,-3,-3,-4,-2,-4,-8,-6,-4, 
-1,2, 1, -1 1, -5, -3, 3, -8,-1, -3, -i, -1,-3, -5, 

0,-100,90 

6O0 RESTORE 610: GOTO 4890 

610 DATA -6,2,-4,-3,0,-5,-3,-6,0,-6,1,-6 

,0,-4,3,-4,-100,100 

620 RESTORE 630: GOTO 4890 

630 DATA -1,-5,-100,100 

640 RESTORE 650: GOTO 4890 

650 DATA -4,-5,-5,2,0,4,-3,2,-5,-2,-3,1, 

-3,-3,-10,5,-10,6,-100,90 

660 RESTORE 670: GOTO 4890 

670 DATA -2,4,-6,0,-4,6,-4,2,8,10,-100,9 



680 RESTORE 690: GOTO 4890 

690 DATA 0,4,-4,3.0,2,-2,5,2,2,-2,5,-100 

,90 

700 RESTORE 710: GOTO 4890 

710 DATA 2,-2,6,0,3,4,0,6,-2,2;-100,90 

720 RESTORE 730: GOTO 4890 

730 DATA 2,-6,0, -4,5,-4, : 1, -4,-4,-4, -4,- 

4,-100,90 

740 RESTORE 750: GOTO 4890 

750 DATA -2,-4,-4,0,-4,-2,-3,2,-5,-2,0,- 

6,-1,-4,0,-4,-5,0,-2,-2,-4,-2,-2,-2,-4,0 

,-100,90 

76« RESTORE 770: GOTO 4890 

770 DATA -3,3,-5,-3,-2,2,-2,-4,-8,1,-8,- 

1,-100,90 

780 RESTORE 790: GOTO 4890 

790 DATA -5,4,-1,4,-4,4,-4,0,0,-8,-4,-2, 

0,-4,2,-4,-4,-2,-4,4,-8,2,-3,2,-1,4,-10, 

5,-100,90 

800 RESTORE 810: GOTO 4890 



810 DATA -4,6,-2,8,0,8,-2,4,-8,4,-14,2,- 

4,-3,-4,-1,-4,-6,-4,-1,-2,3,-100,90 

820 RESTORE 830: GOTO 4890 

830 DATA 0,4,-2,4,1,3,-5,3,-4,6,-4,3,-4, 

1,-4,2,-4,3,-4,-1,-4,-1,-100,90 

840 RESTORE 850: GOTO 4890 

850 DATA 3, 0,3, 2, 9,4, 5,0,4, 2, 3,0, -100, 90 

860 RESTORE 870: GOTO 4890 

870 DATA 3,0,0,4,-1,2,3,3,1,10,4,5,6,-2, 

2,2,12,2,4,-2,-100,90 

880 RESTORE 890: GOTO 4890 

890 DATA 2,-4,0,-8,-4,-3,0,-4,-3,-7,1,-3 

,-100,90 

900 RESTQRE 910: GOTO 4890 

910 DATA 3,-4,-2,-4,1,-1,10,-2,2,-3,-1,- 

4,1,-2,-100,100 

920 RESTORE 930: GOTO 4890 

930 DATA -6,4,0,5,-4,5,0,3,7,-1,7,4,4,6, 

4,6,0,4,-4,8,-6,8,-2,0,-7,3,-1,3,-6,2,-2 

,2,0,2,-4,4,-6,4,-2,-2,-3,0,-1,4,-6,6,2, 

4,-4,6,0,4,-2,4,-100,90 

940 RESTORE 950: GOTO 4890 

950 DATA 2,6,-6,6,0,8,-2,8,-2,2,0,2,-2,4 

,-100,90 

960 RESTORE 970: GOTO 4890 

970 DATA -4,-2,-2,2,-4,-2,-2,0,-4,-4,-2, 

-4,-6,-4,-4,0,-2,-2,-ff;-2,-4,0,-8,-2,-4, 

-3,-4,0,-4,3,-2,2,-2,5,-4,1,-2,-2,-100,9 



980 RESTORE 990: GOTO 4890 

990 DATA -6,4,-8,-3,-8,1,-2,0,-5,-4,-1,- 

4,-6,-2,-2,-2,-4,2,-6,1,-1,-1,-100,90 

1000 RESTORE 1010: GOTO 4890 

1O10 DATA -10,0,-6,-2,-4,2,-6,0,-4,5,-8, 

-2,-1,-3,-3,0,-4,-2,-24,0,-6,-4,-4,2,-6, 

-2,-100,90 

1020 RESTORE 1030: GOTO 4890 

1O30 DATA -4,2,-3,-4,0,-4,-3,0,-2,-4,-6, 

-4,-4,-4,-4,-2,0,-5,-4,1,-2,-4,-2,0.0,2, 

-3,0,-3,-2,-10,2,-2,2,-3,-2,-10,1,-3,2,0 

,-2,-8,1,-4,2,0,2,-2,-1,-2,3,-3,1,-100,9 



1040 RESTORE 1050: GOTO 4890 

1050 DATA -11,-10,0,-6,-7,-2,-6,-6,-100, 

90 

1Ô60 RESTORE 1070: GOTO 4890 

1070 DATA -6,-5,-2,-7,-5,-3,-4,0,-5,-4,- 

4,-2,-10,0,-2,-2,-100,90 

1080 RESTORE 1090: GOTO 4890 

1O90 DATA -6,-4,0,-3,-4,-3,-6,-2,-2,2,-6 

,-6,-2,-5,-100,90 

1100 RESTORE 11 10: GOTO 4890 

1110 DATA 2,4,2,8,1,10,2,4,-2,4,2,4,-1,3 

,-100,90 

1120 RESTORE 1130: GOTO 4890 

1130 DATA 0,6,2,2,-2,30,-2,4,2,2,-100,10 



1140 RESTORE 1150: GOTO 4890 

1150 DATA -10,-5,-2,4,-4,6,-6,-1,-3,-1,- 

7 _o _a _o _4 _4 1 4 1 ? 1 ? 1 ? ? \ T , 1 
0, *., n, jl, t, t, 1, H, •.,,., 1,4., •.,,.,-, I,-', i 

, 3, +1 , 4, -1 , 2, -2, -6, -1 , -3, -1 , -•}, -i-, -4, -*., 
-4,-4,-4,-2,-4,-4,1,-4,-3,-12,-2,0,-2,4, 



-A 4 -?, -2 -7 ft 

U6W DATA -2,-2,-2,-4,6,-2,2,-2,-4,-4,3, 

-6, 1,~6, 1,-4,-1, -8, -i, -12, ~2, _ 7 , t,-3, i-, - 

4,2.-1,0,-2,-4,-3,-3,-4,1,-2,0,-2,-4,-2, 

0,-3,-2,-1,0,-3,0,3,2,1.0,3,4,2,0,-2,3,- 

4,1,-3,2,-2,-100,90 

1170 RE5T0RE 1180: GOTO 4890 

1180 DATA -4,0,-2,-2,-2,-6,0,-4,-2,-6,-2 

,-2,-4,-6,-1,-8,-100,90 

1190 RESTORE 120Ù:GOTO 4890 

1200 DATA -4,-4,2,-2,0,-4,2,-2,-2,-4,-6, 

-4,-6,-8,-2,-6,-6,-4,-2,-6,3,-6,0,-6,-2, 

-12,-1,-10,2,0,2,-6,-100,90 

1210 RESTORE 1220: GOTO 4890 

1220 DATA 4,4,-1,4,3,2,4,2,6,4,0,3,6,3,0 

,4,-8.-4,-2,2,2,4,-2,0,-14,-8,-2,0,-4,-6 

,-3,2,-17,-5,-100,90 

123Ô RESTORE 1240: GOTO 4890 

1240 DATA -4,-6,-3,-6, -5', -6, -4, 0,-2, -2,- 

4,-2,-2,0,-4,2,-100,90 

1250 RESTORE 1260: GOTO 4890 

1260 DATA 6,1,1,-2,-2,-5,9,-4.-100,90 

1270 RESTORE 1280: GOTO 4890 

1280 DATA 2,-2,4,-2,3,0,5,-3,8,0,2,-3,-1 

00,90 

1290 RESTORE 1300: GOTO 4890 

1300 DATA 2,2,-4,6,-7,-4,-3,2,-2,4,-3,-4 

, -5, -4, -4, -10, -4, 0,-4, 2, -2, -4, -6, -4,-6, - 

2,-3,-2,-100,90 

1310 RESTORE 1320: GOTO 4890 

1320 DATA -2,-2,-4,-2,-1,-2,-3,-2,-6,2,- 

2,2,-3,4,1,4,-3,1,-100,90 

1330 RESTORE 1340: GOTO 4890 

1340 DATA -2,-2,1,0,0,-2.-2,0,-4,2,-3,4, 

-4,0,2,14,-100,90 

1350 RESTORE 1360: GOTO 4890 

1360 DATA -4,2,-3,4,-1,2,-4,2,-1,-2,-3,- 

1,-4,3,-3,0,-100,90 

1370 RESTORE 1380:GOTO 4890 

1380 DATA 4,-2,0,-12,-4,-4,-10,-4,-2,-2, 

0,-4,3,-6,-2,-4,0,-4,-3,-6,-6,-2,-8,4,-4 

,0,-7,5,-2,0,-100,90 

1390 RESTORE 1400: GOTO 4890 

1400 DATA 0,-5,-2,-5,2,-4,-6,-5,-4,0,-2, 

-3,-6,2,-2,-2,-100,100 

1410 RESTORE 1420: GOTO 4890 

1420 DATA -8,0,-2,6,2,10.-2,4,4,10,0,10, 

8,12,4,8,2,6,-100,90 

1430 RESTORE 1440: GOTO 4890 

1440 DATA -4,2,4,6,0,6,1,6,-1,2.2,2,2,8, 

3,7,1,0,-100,90 

1450 RESTORE 1460: GOTO 4890 

1460 DATA -4,4,-2,4,-2,2,-2,4,-4,4,-2,6, 

-2,2,-4,2,-2,-1,2,3,4,2,-4,6,2,8,1,4,-1, 

2,0,2,2,3,2,1,0,8,2,4,4,0,-100,90 

1470 RESTORE 1480:6OTO 4890 

1480 DATA -4,4,0,4,-6,4,-4,3,-4,5,-2,-2, 

-4,4,-100,90 

1490 RESTORE 1500: GOTO 4890 

1500 DATA 2,8,2,6,0,6,-1,2,1,2,-3,2,-1,4 

,-2,2,0,3,-4,6,-2,3,0,2,-3,4,0,4,-4,8,-4 

,-2,-2,2,0,2,2,2,-4,4,2,6,0,6,2,-2,4,6,- 

8 



100,100 

1510 RESTORE 1520:GOTO 4890 

1520 DATA -2,-4,-2,-2,-2,-4,-2,-2,-4,-2, 

-1,0,-100,100 

1530 DATA LA SEINE, 60, -130 

1540 DATA L'AUBE, 68, -124 

1550 DATA LA MARNE,69,-118 

1560 DATA L'OISE, 44, -38 

1570 DATA L'AISNE,66,-78 

1580 DATA L'EPT,-20,-56 

1590 DATA L'YONNE, 40, -150 

1600 DATA L'ARMANCON,54,-140 

1610 DATA LE LOING, 18,-130 

1620 DATA L'EURE, -40, -96 

1630 DATA LA RISLE,-50,-88 

1640 DATA LA LOIRE, 50, -232 

1650 DATA L'ALLIER, 40, -242 

1660 DATA LE CHER, 8, -192 

1670 DATA L'INDRE,-4,-172 

1680 DATA LA VIENNE, -6, -200 

1690 DATA LA CREUSE, -5, -196 

1700 DATA LA SEVRE NANTAISE, -70, -162 

1710 DATA LA SARTHE,-48,-92 

1720 DATA LE LOIR, -30, -103 

1730 DATA LA MAYENNE, -64, -98 

1740 DATA LA MAINE, -72, -130 

1750 DATA LA SOMME, 20, -44 

1760 DATA L'ORNE, -56, -92 

1770 DATA LA VIRE, -80, -86 

1780 DATA LA RANCE,-123,-103 

1790 DATA LE BLAVET,-142,-96 

1800 DATA LA VILAINE,-84,-106 

1810 DATA LA SEVRE NIORTAISE,-60,-170 

1820 DATA LA CHARENTE, -40, -196 

1830 DATA L'ADOUR,-52,-302 

1840 DATA LE GAVE DE PAU, -60. -308 

1850 DATA LE TET, -3,-314 

1860 DATA L'AUDE, -6, -312 

1870 DATA L'HERAULT, 36, -256 

1880 DATA LE VAR, 118,-248 

1890 DATA LA GARONNE, -34, -312 

1900 DATA L'ARIEGE,-12, -316 

1910 DATA LE TARN,40,-246 

1920 DATA L'AVEYRON.22,-250 

1930 DATA LE LOT, 36,-242 

1940 DATA LA DORDOGNE,14,-202 

1950 DATA LA VEZERE,-10,-204 

i960 DATA LA LùRREZE,-8,-206 

1970 DATA L'ISLE,-28,-198 

1980 DATA LA DR0NNE,-34,-198 

1990 DATA LE GERS, -48, -294 

2Ô00 DATA LA BAISE, -50, -296 

2010 DATA LE RHONE, 135,-169 

2020 DATA L'AIN, 92, -156 

2030 DATA LA SAONE, 88, -108 

2040 DATA LE D0UBS,96,-156 

2050 DATA L'OGNON, 104,-116 

2060 DATA L'ARDECHE,50,-237 

2070 DATA LE GARD, 40, -254 

2080 DATA L'ISERE, 122,-204 

2090 DATA L'ARC, 126,-204 

2100 DATA LE DRAC, 104,-228 



2110 DATA LA DROME,92,-246 
2120 DATA LA DURANCE,10B,-220 
2130 DATA LE VERDON, 114,-246 
2140 DATA LE RHIN, 138, -122 
2150 DATA L'ILL, 124,-121 
2160 DATA LA MOSELLE, 110,-112 
2170 DATA LA MEURTHE, 116,-102 
2180 DATA LA MEUSE,77,-110 
2190 DATA TROYES,46,-108,LA SEINE 
2200 DATA MELUN,6,-96,LA SEINE 
2210 DATA PARIS, -2, -84, LA SEINE 
2220 DATA ROUEN, -32, -62, LA SEINE 
2230 DATA LE HAVRE, -54, -60, LA SEINE 
2240 DATA SAINT-DIZIER,61,-91,LA MARNE 
2250 DATA CHALONS-SUR-MARNE,44,-80,LA MA 
RNE 

2260 DATA SOISSONS, 22, -62, L'AISNE 
2270 DATA COMPIEGNE,8,-60,L'OISE 
2280 DATA CHARTRES,-22,-98,L'EURE 
2290 DATA LE PUY,43,-228,LA LOIRE 
2300 DATA ROANNE, 45, -186,LA LOIRE 
2310 DATA NEVERS,20,-154,LA LOIRE 
2320 DATA ORLEANS, -14,-U9,LA LOIRE 
2330 DATA BLOIS,-26,-130,LA LOIRE 
2340 DATA TOURS, -45, -136, LA LOIRE 
2350 DATA NANTES, -96, -142, LA LOIRE 
2360 DATA SAINT-NAZAIRE,-115,-136,LA LOI 
RE 

2370 DATA VICHY, 28, -184, L'ALLIER 
2380 DATA M0ULINS,23,-166,L'ALLIER 
2390 DATA MONTLUCÛN,7,-176,LE CHER 
2400 DATA VIERZ0N,-5,-144,LE CHER 
2410 DATA CHATEAUROUX, -16, -158, L'INDRE 
2420 DATA LIM0GES,-26,-194,LA VIENNE 
2430 DATA CHATELLERAULT,-46,-158,LA VIEN 
NE 

2440 DATA AUBUSS0N,-4,-188,LA CREUSE 
2450 DATA ALENC0N,-56,-98,LA SARTHE 
2460 DATA LE MANS, -54, -116, LA SARTHE 
2470 DATA VENDOME, -37, -120, LE LOIR 
2480 DATA LAVAL,-77,-114,LA MAYENNE 
2490 DATA ANGERS, -73, -132, LA MAINE 
2500 DATA SAINT-GAUDENS,-40,-296,LA GARO 
NNE 

2510 DATA TOULOUSE, -22, -276, LA GARONNE 
2520 DATA AGEN,-42,-254,LA GARONNE 
2530 DATA B0RDEAUX,-72,-226,LA GARONNE 
2540 DATA FOIX,-16,-300,L'ARIEGE 
2550 DATA MILLAU, 22, -256, LE TARN 
2560 DATA ALBI,2,-264,LE TARN 
2570 DATA M0NTAUBAN,-24,-262,LE TARN 
25B0 DATA RODEZ, 10, -248, L'AVEYRON 
2590 DATA VILLEFRANCHE-DE-R0UERGUE,-4,-2 
50, L'AVEYRON 

2600 DATA MENDE,28,-242,LE LOT 
2610 DATA CAHORS,-20,-244,LE LOT 
2620 DATA BERGERAC, -48, -227, LA DflRDOSNE 
2630 DATA BRIVE-LA-GAILLARDE,-18,-220,LA 
CORREZE 

2640 DATA PERIGUEUX,-40,-212,L'ISLE 
2650 DATA LY0N,69,-192,LE RHONE 
2660 DATA VALENCE, 71, -225, LE RHONE 



2676 DATA AVI GNON, 70, -257, LE RHONE 

268Ô DATA ARLES, 64, -268, LE RHONE 

269« DATA CHALON-SUR-SAONE, 65, -152, LA SA 

ONE 

2700 DATA MAÇON, 65, -176,LA SAONE 

2710 DATA BESANCON, 90, -138, LE DOUBS 

2720 DATA GRENOBLE, 93, -212, L'ISERE 

2730 DATA BRIANC0N,112,-224,LA DURANCE 

2740 DATA STRASBOURG, 130, -82, LE RHIN 

2750 DATA MULHOUSE, 122, -1 16, L'ILL 

2760 DATA COLMAR, 122, -106, L'ILL 

2770 DATA EPINAL,103,-104,LA MOSELLE 

2780 DATA METZ,90,-68,LA MOSELLE 

2790 DATA NANCY, 94, -82, LA MEURTHE 

2800 DATA VERDUN, 70, -66, LA MEUSE 

281Ô DATA SEDAN, 60, -50, LA MEUSE 

2820 DATA CHARLEVILLE-MEZIERES,54,-46,LA 

MEUSE 

2830 DATA AMIENS, -2, -44, LA SOMME 
2840 DATA CAEN, -66, -72, L'ORNE 
2850 DATA SAINT-L0,-84,-76,LA VIRE 
2860 DATA DINAN,-112,-98,LA RANCE 
2870 DATA LORIENT,-140,-120,LE BLAVET 
2880 DATA RENNES, -102, -112, LA VILAINE 
2890 DATA NIORT, -71, -172,LA SEVRE NIORTA 
ISE 

2900 DATA ANGOULEME,-58,-202,LA CHARENTE 
2910 DATA TARBES,-56,-290,L'ADOUR 
2920 DATA DAX,-88,-274,L'ADOUR 
2930 DATA BAYONNE,-98,-280,L'ADOUR 
2940 DATA LOURDES, -62, -296, LE GAVE DE PA 
II 

2950 DATA PAU, -72, -288, LE GAVE DE PAU 
2960 DATA PERPIGNAN, 18, -308, LE TET 
2970 DATA C ARC ASSONNE, 2, -292, L'AUDE 
2980 DATA NICE, 132, -266, LE VAR 
2990 DATA bassin de LA SEINE, 320, 390, 2, S 
,1,11,1,10 

3000 DATA bassin de LA LOIRE, 320, 550, 2, L 
,12,22,11,31 

3010 DATA bassin de LA GARONNE, 320, 690,2' 
,6,37,48,32,46 

3020 DATA bassin du RHONE, 200, 600, 2, R, 49 
,61,47,55 

3030 DATA bassin du RHIN, 200, 380, 2, RH, 62 
,66,56,64 

3040 DATA FLEUVES COTIERS,320,375,1,FC,2 
3,36,65,80 
3050 BORDER 1:INK 6,1: INK 1,24: INK 2,21: 

INK. 3,11:PEN 1 

3060 MODE 1:A=320:B=390:CF=1:EC=1:6OSUB 

4840 

3070 CR=3:F0R RI=1 TO 66:G0SUB 4680: NEXT 

3080 CV=2:FOR VI=1 TO 80:GOSUB 5260:NEXT 

3090 GOSUB 5180: INK 1,24,15:!MODE01:A$=" 

LA FRANCE" :LOCATE 7,7: !DHAUT,êA$: LOCATE 

9,11:PRINT "et ses ":A*=" COURS d'EAU":LOC 

ATE 6,15:!DHAUT,êA*:!M0DEll:G0SUB 5180:G 

OSUB 5180: INK 1,24 

3100 II*: 0,22: INK 1,16: MODE 2:G0SUB 4840 

:!MODE02:A$="BONJOUR ":LOCATE 7,7:!DHAUT 

,@A$:!M0DE12 



3110 LOCATE 5,11:PRINT "Nous allons déco 
uvnr ensemble": LOCATE 1,13:PRINT "la FR 
ANCE et ses COURS d EAU, fleuves et":LOCA 
TE 1,15:PRINT "rivières, ainsi que les VI 
LLES arrosées.": LOCATE 5,17:PRINT "J'esp 
ère que vous aurez plaisir a" 
3120 LOCATE 1,19:PRINT "jouer et étudier 
avec moi.":!M0DE22:LQCATE 4,23:PRINT "A 
près chaque BIP sonore, appuyez sur une t 
ouche pour continuer.": 1MODE12:GOSUB 503 
0:!MODE22 

3130 INK Ô, 14: INK 1,7:M0DE 2: !M0DE12:L0C 
ATE 5,5:PRINT "Tout d abord, quel est vot 
re NOM ?": IM0DE22: LOCATE 18,7:PRINT "( E 
cnve: votre NOM, puis appuyez sur ENTER 
)" 

3140 ! MODE02: LOCATE 5,14: INPUT "\N0M$:I 
F LEN(NOM$)>10 THEN NÛM*=LEFT*(NOM$, 10! 
3150 IM0DE22 

3160 MODE 1: BORDER 23: INK 0,0: INK 1,24:1 
NK 2,21: INK 3,11:PEN 2:A=326:B=390:CF=1: 
EC=1: GOSUB 4840 

3170 !MODE01: LOCATE 5,5:PRINT noml: 1MQDE 
ll:LOCATE 5,10:PRINT "Vous pouvez :":LOC 
ATE 2, 13: PRINT. "1 - étudier les cours d 
eau":LOCATE 2, 15: PRINT "2 - étudier les 
vil les": LOCATE 2,17:PRINT "3 - reconstit 
uer la FRANCE" 

3180 LOCATE 2, 19: PRINT "4 - jouer avec 1 
es cours d'eau":LOCATE 2, 21: PRINT "5 - j 
ouer avec les villes":LOCATE 2,23:PRINT 
"6 - jouer avec villes et cours d'eau":L 
OCATE 2,25:PRINT "7 - -fin du programme": 
nc=7: GOSUB 4940 

3190 ON c GOTO 32W, 3430, 4340, 3670, 3900, 
4130,4630 

3200 BORDER 1 1 : PEN 1: GOSUB 5060: GOSUB 50 
90 

3210 CLG:A=320:B=390:EC=1: GOSUB 4840: LOC 
ATE#1,<46-LEN(BS$(BB)))/2,1:PRINT#1,BS$( 
BB) 

3220 CR=3!F0R RI=DEBR(BB) TO FINR(BB):GO 
SUB 4680:NEXT:GOSUB 5180:GOSUB 5180 
3230 CLG: A=BX (BB) : B=BY (BB) : EC=EC (BB) : GOS 
UB 4840:LOCATE#1, (40-LEN(BS$(BB)S)/2,l:P 
RINT#1,BS*(BB) 

3240 FOR RI=DEBR(BB) TO FINR(BB): GOSUB 5 
2Ô0: GOSUB 5180: NEXT: GOSUB 5030 
3250 CLGîLOCATE 5,5:PRINT "Vous pouvez m 
aintenant placer le":LOCATE 2,7:PRINT "c 
ours d'eau de votre choix. Pour cela,":L0 
CATE 2,9:PRINT "écrivez le NOM desire.pu 
îs validez-le" 

3260 LOCATE 10,12:PRINT "ex: ";RI$(DEBR(. 
BB));" + (ENTER)": LOCATE 2,16:PRINT "Si 
vous ne savez plus un nom,inscrivez":LOC 
ATE 2,18:PRINT "AIDE. Pour continuer le p 
rogramme": LOCATE 2,20:PRINT "écrivez SUI 
TE."": GOSUB 5030 
3270 CLG: GOSUB 4840 

3280 CLS#1:CLS#2:L0CATE#1,5,1:INPUT#1,"V 
otre choix ? ",RC* 



3290 IF RC*="SUITE" THEN 3200 

33Ô0 IF RC$="AIDE" THEN FOR I=DEBR(BB) T 

FINR(BB):CLStl:LOCATE#l, (40-LENlRI$(I) 

M/2,1: PRINTtl , Rit ( I ) : GOSUB 5030: LOCATE 

20,25:PRINT CHR$ (128): NEXT: GOTO 3280 

3310 FOR I=DEBR(BB) TO FINR(BB) 

3320 IF RC$=RI$(IÏ THEN R I = I : GOSUB 5200: 

GOTO 3280 

3330 NEXT 

3340 FOR 1=1 TO 66 

3350 IF"RC$=RI*(I) THEN 3410 

3360 NEXT 

3370 FOR 1=1 TO 80 

3380 IF RC$=VI$(I! THEN 3420 

3390 NEXT 

3400 GOTO 3280 

3410 CLS#1:L0CATE (28-LEN(RC$M/2,24:PEN 

2:PRINT "ATTENTION ! ";RC$:L0CATE 3,25: 
PRINT "ne fait pas partie du bassin etud 
ie":GQSUB 51B0: GOSUB 5180:6QSUB 51B0:LOC 
ATE 1,25: PRINT STRING$(38.CHR$(12Bi ):60T 
3280 
3420 CLS#1: LOCATE <28-LEN(RC$) )/2,24:PEN 

2: PRINT "ATTENTION ' ";RC*:LÛCATE 3,25:' 
PRINT "est une VILLE et non un COURS d'E 
AU": GOSUB 5180: GOSUB 5180: GOSUB 5 180: LOC 
ATE 1,25:PRINT STR1NG* (38, CHR$ ( 128) ) : GQT 
3280 

3430 BORDER 1 1 : PEN 1: GOSUB 5060: GOSUB 56 
90 

3440 CLG: A=320:B=390:EC=1: GOSUB 4840: LOC 
ATEil,(40-LEN(BS$lBB)))/2,l:PRINT*l,BS$( 
BB) 

3450 CR=3:FOR RI=DEBR(BB) TO FINR'.BB):GO 
SUB 4680: NEXT: GOSUB 5180: CV=2: FOR VI=DEB 
V(BB) TO FINV(BB): GOSUB 5260:NEXT:GOSUB 
5180: GOSUB 5180 

3460 CLG: A=BX (BB) : B=BY (BB) : EC=EC (BB) : GOS 
UB 4840:LOCATE#1, (40-LEN(BS$(BB)> )/2, 1:P 
RINT#1,BS*(BB) 

3470 FOR RI=DEBR(BB) TO FINR(BB):GOSUB 4 
686: NEXT 

3480 FOR VI=DEBV(BBî TO FINV(BB): GOSUB 5 
346: GOSUB 5376: GOSUB 5180:NEXT:GOSUB 563 

6 

3490 CLG: LOCATE 5, 5: PRINT "Vous pouvez m 
aintenant placer la": LOCATE 2, 7: PRINT "v 
i 1 le de votre choix. Pour cela, ":L0CATE 2 
,9:PRINT "écrivez le NOM désire, puis val 
idez-le" 

3500 LOCATE 16,12:PRINT 'iex: ";VI*(DEBv( 
BB)ii" + (ENTER) 1 ': LUC ATE 2,l6:PftINT "Si 
vous ne savez plus un nom,in=crivez":LÛC 
ATE 2,18:PRINT "AIDE. Pour continuer le p 
rogramme": LOCATE 2, 26: PRINT "écrivez SUI 
TE.": GOSUB 5036 

3510 CLG: GOSUB 4840 :CR=3: FOR RI=DEBR(BB) 
TO FINRCBB): GOSUB 4680: NEXT: GOSUB 5180 
3520 CLS#1 : CLSI2: LOCATEtl ,2,1: INPUTtl , "V 
otre choix ? ",RC$ 
3530 IF RC$="SUITE" THEN 3430. 
3540 IF RCt="AIDE" THEN FOR I=DEBV(BB) T 



Q FINV(BB) :CLS#1:L0CATE#1, (40-LEN(VI$(I) 
) ! /2, 1 :PRINT#i , VI$ i I ) : GOSUB 5030: LOCATE 
20,25:PRINT CHR$ ( 128) :NEXT: GOTO 3520 
3550 FOR I=DEBV(BB) TO FINViBB) 
356Ô IF RC$=VI$(I) THEN VI=I:60SUB 5340: 
GOSUB 5376: GOTO 3520 

3579 NEXT 

3580 FOR 1=1 TO 80 

3590 IF RC$=VI$(I) THEN 3650 

3600 NEXT 

3610 FOR 1=1 TO 66 

3620 IF RC$=RI*iI) THEN 3660 

3630 NEXT . 

3640 GOTO 3520 

3650 CLS#1: LOCATE (28-LEN (RC$) ) /2, 24: PEN 

2:PRINT 'ATTENTION ! ";RC$:LOCATE 3,25: 
PRINT "ne fait pas partie du bassin etud 
ie": GOSUB 5180: GOSUB 5180: GOSUB 5180: Lût 
ATE 1 , 25: PRINT STRIN6* (38,'CHR$ (128) ; : GOT 
3520 
3660 CLS#l: LOCATE (28-LEN <RC$m/2, 24: PEN 

2:PRINT "ATTENTION ! ";RC$:LOCATÉ 3,25: 
PRINT "est un COURS d'EAU et non une VIL 
LE":GOSUB 5180:GOSUB 5180:GOSUB 5180:LOC 
ATE 1,25: PRINT STRING$(38,CHR$(128)):GOT 
3520 

3670 MODE 1: LOCATE 5.8:PRINT "Pour quitt 
er ce programme en cours,": LOCATE 2, 10:P 
RINT "appuyez sur S après un BIP sonore. 
":LÛCATE 5,13:PRINT "Pour continuer, appu 
yez sur une autre":LOCATE 2,15:PRINT "to 
uche.".:GOSUB 5030:GOSUB 5390 :JJ=66: GOSUB 

5460 

3680 MODE 1: BORDER 17:A=460:B=398:CF=3:E 
C=l: GOSUB 4840 

3690 WIND0W#2, 1,21,11, 25: WIND0W#3, 1,17, 1 
,10:PAPER#2,2:PAPER#3,0 
3700 CR=3:FOR RI=1 TO 66:G0SUB 4680:NEXT 
3710 GOSUB 5470 

3720 IF DC=67 THEN CLS#2:L0CATE#2,3,6:PR 
INT#2,"Vous avez terraine":6QSUB 5030: GOT 
3840 

3730 CR=1:RI=NU: GOSUB 4680 
3740 FOR J0=1 TO NJ 

3750 CLS#2:LOCATE#2,3,2:PEN#2,0:PRINT#2, 
J0*(J0):LOCATE#2,3,4:FEN#2,l:PRINT#2,"Mo 
n NOM ?":L0CATE#2,1,8:PEN#2,3:INPUT#2,"" 
,RD$(J0) • 

3760 IF DC=67 THEN CLS#2:L0CATE#2,3,6:PR 
INT#2,"Vous avez termine": GOSUB 5030: GOT 
3840 

3770 IF LEN(RD*(JO)i>20 THEN 3750 
3780 NEXT 

3790 FOR J0=1 TO NJ 
3800 IF RD$(JO)=RI$(NU) THEN PT(J0)=PT(J 

O)+10 

3810 NEXT 

3S20 CLS#2: L0CATEI2, 1,1: PEN#2, 3: PRINT#2, 
STRING$ (20, "*") : 1MODE01 :LOCATE#2, 2,3: PEN 
#2,0:PRINT#2, "REPONSE": !M0DE11:L0CATE#2, 
3,5:PENi2,l:PRINT#2,RI$(NU):L0CATE#2,3,6 
:PEN#2,3:PRINT#2,STRING*(LEN(RI$(NU)i,CH 
10 



R$(218)) 

3830 PRINT#2:PEN#2,3:FÛR J0=1 TO NJ:PRIN 

T#2,JQ$(J0);":"RD$(J0):NEXT 

3840 ! MODE01 : PEN#3, 1 : L0CATE#3, 2, 2: PRINT# 

3, "SCORES": iMODEll 

3850 FOR J0=1 TO NJ 

3860 PEN#3, 2: L0CATEI3, 2, 2+J0*2: PRINT#3, J 

Q$(J0):LQCATE#3,13,2+JQ*2:PRINT#3,PT(J0) 

3870 NEXT 

3880 GOSUB 503Ô:CLS#3:IF DC=67 THEN 3160 

3890 CR=3:G0SUB 4680:GOTO 3710 

3900 MODE 1: LOCATE 5, 8: PRINT "Pour quitt 

er ce programme en cours,": LOCATE 2,10: P 

RINT "appuyez sur S après un BIP sonore. 

":LOCATE 5,13:PRINT "Pour continuer, appu 

yez sur une autre":LOCATE 2,15:PRINT "to 

uche.":GOSUB 5830: GOSUB 5390: JJ=8«: GOSUB 

5460 
3910 MODE 1: BORDER 17:A=492:B=398:CF=3:E 
C=l: GOSUB .4840 

3920 WINDQW*2, 1 , 24, 1 1 , 25: WIND0W#3, 1,17,1 
,10:PAPER#2,2 

3930 CR=3:F0R RI=1 TO 66:60SUB 4680:NEXT 
:CV=3:F0R VI=1 TO 80:GOSUB 526»:NEXT 
3940 GOSUB 5470 

3950 IF DC=81 THEN CLS#2:L0CATE#2,3,6:PR 
INT#2,"Vous avez termine":60SUB 5030: GOT 
4070 

3960 CV=1:VI=NU: GOSUB 5260 
3970 FOR J0=1 TO NJ 

3980 CLS#2: !MODE01:PEN#2,3:LOCATE#2,2,2: 
PRINT#2, JO* ( J0> : ! M0DE1 1 : LQCATE#2, 3, 5: PEN 
#2,l:PRINT#2,"Mon NOM ?":LQCATE#2,1,8:PE 
N#2,3:INPUT#2,"",RV*(J0) 
3990 IF DC=81 THEN CLS#2:LÛCATE#2,3,6:PR 
INT#2,"Vous avez termme":GOSUB 5030:GOT 
4670 

4000 IF LEN(RV$(JQ))>25 THEN 3980 
4010 NEXT 

4020 FOR J0=1 TO NJ 

4030 IF RV$(JO)=VI$(NU) THEN PT(JO)=PT(J 
O)+10 
4040 NEXT 

4050 CLS#2: L0CATE#2, 1,1: FRINTI2, STRINGI ( 
29, "♦" ) : ! MODE01 : PENI2, 0: L0CATE#2, 2, 3: PRI 
NT#2, "REPONSE" : ! M0DE1 1 : L0CATE#2, 3, 5: PEN# 
2,1:PRINT#2,VI$(NU):L0CATE#2,3,6:PEN#2,3 
:PRINT#2,STRING*(LEN(VI$(NU)),CHR$(218)) 
4060 PRINTi2:F0R J0=1 TO NJ:PRINT#2,J0$( 
JQ);":"RV$(JO!:NEXT 

4070 PAPER#3,3:CL5#3: !M0DE&1:L0CATE#3,2, 
2: PENI3, 1 : PRINT#3, "SCORES" : ! M0DE1 1 
4080 FOR J0=1 TO NJ 

4090 L0CATE#3, 2, 2+J0*2: PENI3, 2: PRINT#3, J 
0$<J0):L0CATE#3,13,2+J0*2:PRINT#3,PT(J0) 
4100 NEXT 
4110 GOSUB 5030:PAPER#3,0:CLS#3:IF DC=81 

THEN 3160 
4120 CV=3: GOSUB 5260: GOTO 3940 
4130 MODE 1: LOCATE 5,8:PRINT "Pour quitt 
er ce programme en cours,": LOCATE 2,10:P 
RINT "appuyez sur S après un BIP sonore. 



":LOCATE 5,13:PRINT "Pour continuer,appu 
yez sur une autre":LOCATE 2,15:PRINT "to 
uche.": GOSUB 5030: GOSUB 5390: JJ=80: GOSUB 

5460 

4140 WIND0W#2, 1,40, 11, 25: WIND0IW3, 1,15,1 
, 10: WIND0W#4, 15, 40, 1 , 10: PAPER#2, 1 
4150 GOSUB 5470 

4160 IF DC=81 THEN CLS:L0CATE#2,12,4:PRI 
NT#2,"Vous avez termine" :GOSUB 5030:GOTO 

4280 
4170 CLS:PEN#4,2:L0CATE#4,3,2:PRINT#4,"S 
ur quel cours d'eau":L0CATE#4,9,4:PRINT# 
4, "se situe":PRINT#4,CHR$(24):L0CATE#4, ! 
27-LEN(VI*(NU)))/2,7:PRINT#4,VI$(NU):PRI 
NT#4,CHR$(24) 
4180 FOR J0=1 TO NJ 

4190 CLS#2: !MODE01:LOCATE#2,3,2:PEN#2,Ô: 
PRINT#2,J0$(J0i:iM0DEll:PEN#2,3:L0CATE*2 
,8,4:PRINT#2, "Votre reponse":L0CATE#2,8, 
8:INPUT#2,"",RV$(J0) 

4200 IF DC=81 THEN CLS#2:L0CATE#2,3,6:PR 
INT#2,"Vous avez termine": GOSUB 5030:GQT 
4280 

4210 IF LEN(RV$(J0))>25 THEN 4190 
4220 NEXT 

4230 FOR J0=1 TO NJ 
4240 IF RV$(JO)=RIV$(NU) THEN PT(JO)=PT( 

JO)+10 

4250 NEXT 

4260 CLS#2:L0CATE#2, 1, 1:PEN#2,3:PRINT#2, 
STRIN6* (40, "♦" ) : ! MODE01 : L0CATE#2, 8, 3: PEN 
I2,0:PRINT#2, "REPONSE": !M0DE11:L0CATE#2, 
(40-LEN(RIV$(NU)))/2,6:PEN#2,3:PRINT#2,R 
IV$(NU):L0CATE#2, (40-LEN(RIV$(NU)))/2,7: 
PRINTt2,STRING$(LEN(RIV$(NU)),CHR»(218)) 
4270 PRINT#2:PEN#2,0:FOR J0=1 TO NJ:PRIN 
T#2,J0$(J0);" : "RV$(J0):PRINT#2:NEXT 
4280 PAPER#3,2:CLS#3: !MODE01:LOCATE#3,2, 
2: PEN#3,0:FRINT#3, "SCORES" : ÎM0DE11 
4290 FOR J0=1 TO NJ 

4300 PEN#3, 3: L0CATE#3, 1 , 2+J0*2: F-RINT#3, J 
0$(J0):L0CATE#3,11,2+J0#2:F'RINT#3,PT(J0) 
4310 NEXT 

4320 GOSUB 5030:CLS#3:IF DC=81 THEN 3160 
4330 GOTO 4150 

4340 MODE 1:!MODE01: LOCATE 7,1:PRINT NOM 
*: SMODEU: LOCATE 5,4:PRINT "Vous allez m 
aintenant reconstituer":LOCATE 1,6:PRINT 
"la carte de la FRANCE. A vous de choisi 
r":LOCATE 1,8:PRINT "les VILLES et les C 
OURS d'EAU, moi, je les" 
4350 LOCATE 1,10:PRINT "dessine a leur p 
lace.":LOCATE 3,12:PRINT "Vous avez 66 c 
ours d'eau et 80 vil les": LOCATE 1,14:PRI 
NT "a placer.": LOCATE 3, 16: PRINT "Je ne 
vous aiderais pas, mais je vous" 
4360 LOCATE 1,18:PRINT "indiquerais les 
oublis a la fin.":LQCATE 1,20:PRINT "ecr 
ivez FIN si vous ne savez plus":LQCATE 1 
,22: PRINT "écrivez SUITE pour continuer. 
": GOSUB 5030 
4370 CLG:BORDER llsINK 3,17:A=480:B=380: 



EC=1:CF=3:GDSUB 4840 

4380 WINDOttil, 1,40,24,24 

4390 FOR 1=1 TO 66:BA$(I)=RI$(I):NEXT:FQ 

R 1=1 TO 80:VA*(I)=VI$(I):NEXT 

4400 PR=0:PV=0:LOCATE 5, 12: PEN 1: PRINT " 

Vous avez place: ":LOCATE 1,15:PEN 3:FRIN 

T "COURS d'EAU :":LOCATE 1,18:PEN 2:PRIN 

T "VILLES :":LOCATE 15, 15:PEN 3:PRINT PR 

:L0CATE 15,18:PEN 2:PRINT PV 

4410 IF PR=66 AND FV=80 THEN CLS#l:LOCAT 

E#1,2,1:PEN 3:PRINT#l,"Vou5 avez termine 

, BRAVO" :GQSUB 5030: GOTO 3160 ELSE CLS#1 
:LOCATE 2y,25:Ff(INT CHR*( 128): LOCATE* 1,2 
, 1 : PAPERtl , 1 : PENil , 0: INPUT#1 , "Votre choi 
:•: :",RC* 

4420 IF RC$="SUITE" THEN 3160 
4430 IF RC$="FIN" THEN 451Ô 
4440 FOR RI=1 TO 66 
4450 IF RC$=RI$(RI) AND RC*=BA*(RI) THEN 

BA$(RI')="":CR=1:GOSUB-4680:PR=PR+1:LOCA 
TE 15,15:PEN 3:PRINT PR:GQSUB 5180:GOSUB 

51B0:CLS#1:CR=3:GQSUB 4680:GOTO 4460 EL 
SE IF RC$=RI$(RIi THEN CLS#l:PRINTtl," 
Ce COURS d'EAU est de.ja place": GOSUB 

5030 

4460 NEXT 

4470 FOR VI=1 TO 80 

4480 IF RC$=VI$(VI) AND RC$=VA$(VI: THEN 
VA$ (VI )="":CV=1: GOSUB 5260:PV=PV+1:LOCA 

TE 15,18:PEN 2:PRINT PV:GOSUB 518Ô:G0SUB 
5180:CLS#1:CV=3:6OSUB 5260:GOTQ 4490 EL 

SE IF RC$=VI$(VI) THEN CLS*1:PRINT#1," 
Cette VILLE est déjà p lacée" :G0SUB 50 

30 

4490 NEXT 

4500 GOTO 4410 

4510 CLS#1: LOCATE 5,12:PEN 1:PRINT "Il r 

este a placer: ":LOCATE 15,15:PEN 3:FfcINT 
66-PR:LQCATE 15,18:PEN 2-.PRINT 80-PV:6O 

SUB 5180 

4520 LOCATE 15,22:PEN 3:PRINT "COURS d'E 

AU" 

4530 FOR RI=1 TO 66 

4540 IF BA*<RIK>"" THEN PRINT#1,CHR$(30 

) +CHR$ (24) : LOCATE#l , (40-LEN (BA$ (RI ) ) ) /2, 

1:PRINT#1,BA$'(RI):PRINT#1,CHR$(30)+CHR$( 

24):CR=1:60SUB 4680 :PR=PR+1: LOCATE 15,15 

:PRINT 66-PR:G0SUB 5030:CLS#1: LOCATE 20, 

25:PRINT CHR$ ( 1 28 ):CR=3: GOSUB 4680:GQSUB 
5180 

4550 IF INKEY(60')=0 THEN 3160 
4560 NEXT 

4570 LOCATE 15,22:PEN 2:PRINT " VILLES 

4580 FOR VI=1 TO 80 

4590 IF VA$(VI)<>"" THEN PRINT#1,CHR$(30 
)+CHR$(24) :LOCATEIl, (40-LEN (VA$ (VI ) ) ) /2, 
1:PRINT#1,VA$(VI):PRINT#1,CHR*(30)+CHR$( 
24):CV=l:GOSUB 5260: PV=PV+1: LOCATE 15,18 
:PRINT 80-PV:GOSUB 5030: CLS#1: LOCATE 20, 
25:PRINT CHR$( 128) :CV=3: GOSUB 5260:GOSUB 
5180 



4600 IF INKEY (601=0 THEN 3160 

4610 NEXT 

4620 GOTO 3160 

4630 MODE 0:A=320:B=390:EC=1:CF=15:GOSUB 

4840 

4640 PEN 13: LOCATE 9,6:PRINT NOM* 
4650 PEN 14: LOCATE 7,11:PRINT "A BIENTOT 

H 

4660 GOTO 4660 

4670 END 

4680 ON RI GOSUB 180,210,230,250,270,290 

,310,330,350,370,390,410,440,460,480,500 

, 520 , 540 , 560 , 580 , 600 , 620 , 640 , 660 , 680 , 700 

, 720 , 740 , 760 , 780 , 800 , 820 , 840 , 860 , 880 , 900 

,920,940,960,980, 1000, 1020, 1040, 1510, 106 

0,1080,1100 

4690 IF RI>47 THEN 4700 ELSE 4720 
4700 RI2=RI-47 

4710 ON RI2 GOSUB 1120, 1140, 1170, 1190, 12 
10, 1230, 1250, 1270, 1290, 1310, 1330, 1350, 13 
70, 1390, 1410, 1430, 1450, 1470, 149*3 
4720 RETURN 
4730 RESTORE 1530 
4740 FOR 1=1 TO 66 
4750 READ RI*,RX,RY 
4760 RI$(I!=RI$:RX(I)=RX:RYiI)=RY 
4770 NEXT 
4780 RESTORE 2190 
4790 FOR 1=1 TO 80 
4800 READ VI*,VX,VY,RIV$ 
4810 VI$(I)=VI*:VX!I)=VX:VY(I)=VY:RIv*(I 
)=RIV$ 
4820 NEXT 
4830 RETURN 

4840 RESTQRE 50: PLOT A,B 
4850 READ X,Y 

4860 IF x=-100 THEN RETURN 
4670 DRAWR X*EC,Y*EC,CF 
4880 GOTO 4850 

4890 MOVE A,B:MOVER RX(RI)*EC,RY(RI)*EC 
4900 READ X,Y 

4910 IF X=-100 THEN RETURN 
4920 DRAWR X*EC,Y*EC,CR 
4930 GOTO 4900 

4940 C$=INKEY*:IF C$="" THEN 4940 
4950 IF ASC(C$)<49 OR ASC(C*)>48+NC THEN 
4940 

4960 C=VAL(C$): RETURN 
4970 RESTORE 2990 
49B0 FOR 1=1 TO 6 
4990 READ BS*,BX,BY,EC,B*,DEBR,FINR,DEBV 

.FINV 

5000 BS$ ( I ) =BS$ : BX ( I ) =BX : BY ( I ) =BY : EC ( I ) = 
EC:B$(I)=B*:DEBR(I)=DEBR:FINR(I)=FINR:DE 
BV(I)=DEBV:FINV(I)=FINV 
5010 NEXT 
5O20 RETURN 

503O PRINT CHR$ (30): PRINT CHR* (7): LOCATE 
20.25-.PRINT CHR*(241):CALL &BB06 
5040 IF INKEY<60)=0 THEN 3160 
5050 RETURN 
5060 MODE 1:!MQDE01: LOCATE 5,5:PRINT NOM 



*:!M0DE11: LOCATE 5,10:PRINT "Vous choisi 
rez le bassin que vous":LOCATE 1,12:PRIN 
T "voulez étudier en appuyant sur la bar 
re":LOCATE 1,14:PRM "d'espace, puis vou 
s validerez votre choi>:" 
5O70 LOCATE 1,16: PRINT "par ENTER": GOSUB 
5030 

5080 RETURN 

5090 MODE i:NINDQW#l,l,40,24,24:PEN#l,0: 
PAF€R# 1 , 1 : BB=Ô : B5$ 1 7 ) = " SU I TE M 
5100 BB=BB+1:IF 6B,>7 THEN BB=BB-7 
5110 CLS#l:LOCATE#l,(40-LEN(BS*iBB;;i/2, 
l:PRINTtl,BS$(BBi 
5120 CALL Î-.BB06 
5130 IF INKEYl47)=0 THEN 5100 
5140 IF INKEY(18)=0 THEN 5160 
5150 GOTO 5120 
5160 IF BB=7 THEN 3160 
5170 RETURN 

5180 FOR T=l TO 15Ô0:NEXT 
5190 RETURN 
5200 GOSUB 5230 

5210 FOR CR=2 TO 6: GOSUB 4680: FOR 1=1 TO 
500:NEXT:NEXT:CLS#2 
5220 RETURN 

5230 WIND0W#2, 1 , 40, 1 , 1 : PAPER#2, 3: PEN#2, 1 
5240 CLS#2:L0CATE#2, (40-LEN(RI$(RI>>i/2, 
1:PRINT#2,RI*(RD 
5250 RETURN 

5260 ORIGIN A+VX(VI)*EC,B+VY(VIi*EC 
5270 FOR XX=-2*EC TO 2*EC 
5280 FOR YY=-2*EC TO 2*EC 
5290 PLOT XX,YY,CV 
5300 NEXT 
5310 NEXT 
5320 ORIGIN 0,0 
5330 RETURN 

5340 WINDQWI2, 1 , 40, 1,1: PAPER»2, 3: PEN#2, 1 
5350 CLS#2: L0CATE#2, (40-LEN (VI* (VI i ) ) 12, 
1:PRINT#2,VI*(VI) 
5360 RETURN 

5370 FOR CV=1 TO 1.0: GOSUB 52û0:FOR I=i T 
60:NEXTlNEXT:CLS#2 
.5380 RETURN 

5390 MODE 1: LOCATE 5, 7: PRINT "Nombre de 
joueurs ? (de 1 a 3 )":NC=3: GOSUB 4940 
5400 IF C=l THEN NJ=1:PT(1)=0:JO*(1)=NOM 
%: RETURN 

5410 NJ=C:FOR JQ=1 TO NJ:PT(JQ)=0 
5420 LOCATE 5,9+J0*2:PRINT "NOM du .;oueu 
r ";JO;:INPUT "",JO$ua) 
5430 IF LENiJO*(JO))=0 THEN GOTO 5420 
5440 IF LEN(JO*(JO))-10 THEN JQ*(JO)=LEF 
T$iJO*(JO),10) 
5450 NEXT: RETURN 

5460 RANDQMIZE TIME:FÛR J=l TO JJ:DE(J)= 
J: NEXT: DC=0: RETURN 
5470 DC=DC+1:IF DC/JJ THEN RETURN 
5480 NN=INTiRND*JJ!+l 
5490 IF DE(NN)\/0 THEN DE(NN)=0:NU=NN:RE 
TURN ELSE NN=NN+1:IF NN.'JJ THEN NN=NfJ-Ji 
5500 GOTO 5490 
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Utilitaire 




BOISSON 

ASSISTEE 

PAR 

OUI H SUEUR 



Gérard TANNIERE 



GRAPHE de L ' ALCOOLEMIE 



f 



iiiiiMt'trtiti'iiTiTTnrtnriiiimi i i n iiffiTfrin nHi ' iHiiiniiiiiiHinf i 
16 38 24 4 8 



monsieur 






votre alcoolenie 


naxinun 


est de 1.613 




une 


touche SUP. 



Alors que notre pays annonce 
1 1 000 tués sur les routes en 1986 
et que le doublement des peines, en 
cas d'accident dû à l'alcool, vient 
d'être décidé en Conseil des Minis- 
tres, il est intéressant d'utiliser l'in- 
transigeance de l'informatique pour 
aider les bons vivants que nous 
sommes à boire en connaissance de 
cause. 

BAO doit permettre d'évaluer, à la fin 
du repas, le taux d'alcoolémie. En fonc- 
tion de la nature et de l'heure d'absorp- 
tion, l'ordinateur donnera, non seule- 
ment le pourcentage maximum en 
grammes par litre, mais aussi un mes- 
sage indiquant les effets de l'alcool 
ingurgité et, le cas échéant, les heures 
entre lesquelles la conduite est forte- 
ment déconseillée, sous peine de se 
voir verbaliser selon les dernières sanc- 
tions réglementaires. 

Attention : l'auteur décline toute respon- 
sabilité en cas de brouille avec vos amis... 
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10 ' ♦+*****♦***♦*♦*******♦*•»*#**♦■**♦*#♦ 

20 '* Boisson Assistée par Ordinateur * 
30 '*** par G. TANNIERE *♦* 
40 '*** le 02-03-87 *♦* 
50 '*** pour tous les amis qui **♦ 
60 '*** viennent a la maison *** 
70 ' ***********♦*##**»«#**♦#♦♦*♦***♦**♦ 
80 MODE 0: BORDER 6: INK 1,11: INK 2,26: INK 

3,6: INK 4, 18: INK 5,0:PAPER 4:CLS 
90 LOCATE 3,7:PEN 1:PRINT "B";:PEN 5:PRI 
NT "oisson": LOCATE 6,13:PEN 2:PRINT "A"; 
:PEN 5:PRINT "ssistee": LOCATE 10,16:PRIN 
T"par":LOCATE 9,19:PEN 3:PRINT H Q";:PEN 
5:PRINT "rdinateur":GOSUB 1000 
100 RESTORE 1010: ENV 1,2,2,5, 1,0, 200: FOR 

::=1 TO 77:READ c,h,d,v:SOUND c,h,d*0.9, 
v,l:NEXT 

110 CLS: LOCATE 9,6:PRINT "par": LOCATE 8, 
12:PRINT "gerard": LOCATE 7,18:PRINT "TAN 
NIERE" 

12Ô ph$="ATTENTION. c-e programme n'a auc 
une valeur juridique. ":TA6: FOR x=640 TO 
-1000 STEP-20:PLOT ::,30,2:PRINT ph$;:NEX 
T:TA80FF:F0R x=l TO 300Ô:NEXT:MQDE 1:RES 



TORE 1070: FOR :<=2 TO 20 STEP 2:READ p$:L 

OCATE 2,x:PRINT p$:NEXT 

130 LOCATE 23,24:PRINT "une touche SVP." 

;:WHILE k*C"":k*=INKEY$:WEND:WHILE k$=" 

":k*=INKEY*:WEND 

140 '*** entrée des données ♦** 

150 MODE 1: PAPER 2:PEN 1: CLS: BORDER 0:WI 

NDOH#1,2,18,2,10:PAPER#1,1:PEN#1,2:CLS#1 

:WIND0W#2,2,18,12,24:PAPER#2,1:PEN#2,2:C 

LS#2: WIND0W#3, 26, 39, 2, 24: PAPERK3, 1 : PEN#3 

,2:CLS#3 

160 DIM alc(200),alt(200),fine(200),m(20 

0),mal(200):LOCATE#l,2,2:INPUT#l,"NOM:", 

nom* 

170 LQCATE#1 , 3, 4: INPUT#1 , "SEXE :",sex$:s 

ex$=UPPER$(sex$):IF sex$0"F" AND sex$<> 

"M" THEN GOTO 170 ELSE IF sex*="F" THEN 

coef=0.6 ELSE coef=e.7 

180 L0CATE#1,3,6:INPUT#1, "POIDS: ",poid*: 

poids=VAL(poid$):L0CATE#l,9+LEN(poid$),6 

:PRINT#1," kg" 

190 L0CATE#1,2,8:INPUT#1, "HEURE: ",hd:L0 

CATE*1,8,8:PRINT#1,USING "##.##";hd;:PRI 

NT#1," h" 

200 LQCATEK3, 5, 2: PRINT#3, "CONSOMMAT IONS" 

:REST0RE 1090:FOR x=l TO 16:READ r$:L0CA 

TE#3,2,4+x:PRINT#3,r*:NEXT x 

210 '**** ENTREE DES CONSOMMATIONS ***♦ 

220 FOR x=0 TO 5:fine(x)=l:NEXT:x=2:h=5: 

hg=hd:DEF FNal'cool=alt(h-l)+alt(h-2)+alt 

(h-3) +alt(h-4)+alc(h-l)+ (0.04* (fine (h-5) 

=0)) 

230 WHILE en$<>"FIN" 

240 L0CATE#2,2,x:PRINT#2,USING "##.##";h 

g: L0CATE#2, 10, x: INPUT#2, en$: en$=UPPER$(e 

n*):en=VAL(en$) 

250 ON en+1 80SUB 1130,1140,1150,1160,11 

70, 1180, 1190, 1200, 1210, 1220, 1230, 1240, 12 

50,1260,1270,1280,1290 

260 x=x+2:IF x>13 THEN x=12:PRINT#2,STRI 

N6$(2,CHR*<10>) 

270 malc=MAX (aie (h) ) :hg=hg+0. 15:h=h+l: IF 

(hg-INT(hg))>0.59 THEN hg=INT(hg!+l 
280 IF hg>24 THEN hg=0. 15 
290 WEND:fine(h-l)=0 

300 h=4:WHILE alc(h)>=0:h=h+l:alt(h)=(m( 
h)/(4#poids*coef)):alc(h)=FNalcool:mal=a 
le (h): IF maDmalc THEN malc=mal 
310 IF maDmalc THEN malc=mal 
320 WEND 

330 '*** sortie du graphique *** 
340 MODE 1: PAPER 2: CLS: LOCATE 10,2:PRINT 

"GRAPHE de L'ALCOOLEMIE":cy=100:cx=600\ 
h:0RIGIN 30,180:DRAW 600,0,1:PLOT 0,-10, 
1:DRAW 0,200: PLOT 0,80: DRAW 600, 80: FOR y 
=0 TO 200 STEP 10:MOVE -6, y: DRAW 0,y:NEX 
T 

350 PRINT CHR*(23)+CHR$(1);:TAG:PAPER 3: 
MOVE -30,200:PRINT "g/l";:r10VE 590,-4:PR 



INT "h";:HOVE -30,96:PRINT "0.8";:TA6OFF 

:PRINT CHR$(23)+CHR$(0):h=6:hd=hd+0.15 

360 i=0:PLOT 0,0:WHILE alc(h)>=0:PLOT (h 

-6>*cx,alc(h-l)«100,0:DRAN (h-5)»cx,alc( 

h)*100:IF alc(h)>0.8 AHD i=0 THEN hdc=hd 

:i=l ELSE IF alc(h)<0.8 AND i=l THEN hfc 

=hd:i=0 

37e IF hd-INT(hd)=e AND cx>9 THEN PLOT ( 

h-5)*cx,0,l:DRAW (h-5)*cx,-12:PRINT CHR$ 

(23)+CHR*(l);:TA6:PL0T 0,0,3:MOVE (h-5)* 

cx-32,-16:PRINT INT(hd);:TAGOFF:PRINT CH 

R$(23)+CHR$(0) ELSE PLOT (h-5)*cx,0,l:DR 

AW (h-5)*cx,-8 

38e IF hd-INT(hd)=e AND cx<=9 AND (INT(h 

d)) MOD 4=e THEN PLOT (h-5)*cx,e,l:DRAW 

(h-5)*cx,-12:PRINT CHR$(23)+CHR$(1);:TA6 

:PLOT e,e,3:M0VE (h-5)*cx-32,-16:PRINT I 

NT(hd);:TA60FF:PRINT CHR$(23)+CHR$(e) EL 

SE PLOT (h-5)*cx,0,l:DRAH (h-5)*cx,-8 

39e h=h+l:hd=hd+e.l5:IF (hd-INT(hd))>e.5 

9 THEN hd=INT(hd)+l ELSE IF hd>24 THEN h 

d=e.l5 

400 WEND 

4ie '*** commentaires du graphe ♦** 

42e WINDOWt4,2,39,17,24:PAPERt4,0:PENt4, 

2:CLS#4 

43e L0CATE#4,ie,2:IF sex*="F" THEN PRINT 

I4,"aada«e H ;UPPER$(nom») ELSE PRINT#4," 

monsieur ";UPPER$(nom$) 

44e LOCATE#4,2,4:PRINT#4,"votre alcools» 

ie maximun est de"iUSIN6 "tt.ttt";malc:6 

OSUB 1390:CLSt4 

45e IF nalc<e.3 THEN RESTORE 13ie:READ p 

h$:PRINTI4,CHR*(10);CHR$U0)ph$:GOSUB 13 

9e 

46e IF aalc>=0.3 AND nalc<e.5 THEN RESTO 
RE 132e:READ ph$:PRINTt4,CHR$<ie);ph$:60 
SUB 1390 

47e IF nalc>=0.5 AND ialc<0.8 THEN RESTO 
RE 1330:READ ph$:PRINTt4,CHR$(10);ph$:6O 
SUB 139e 

48e IF malc>=0.8 AND malc<1.5 THEN BORDE 
R 6:REST0RE 1340:READ ph$:PRINT#4,ph$:L0 
CATE#4,12,6:PENI4,3:PRINTI4,USIN6 "ti.tt 
";hdc5:PRINTI4," H a ";:PRINTI4,USING "t 
t.ti";hfc;:PRINTt4," H":GOSUB 13W:CLS»4 
:READ P hl*:PRINTI4,phl$:60SUB 139« 
49e IF malc>=1.5 AND *alc<3 THEN RESTORE 
136e:READ ph»:PRINTt4,CHR$(10);ph$:LXA 
TEt4,12,5!PENt4,3:PRINTI4,USIN6 "t#.»«"; 
hdc;:PRINTt4," H a ";:PRINTI4,USIN6 "». 
##";hfc;:PRINTt4, u H":60SUB 1390:CLSi4:R 
ESTORE 135e:READ phl$:PRINT#4,phl*:60SUB 
1390 
500 IF malc>=3 AND m1c<5 THEN BORDER 6: 
RESTORE 1370:READ ph$:PRINT#4,CHR*(10);p 
h$:L0CATE#4,12,5:PENM,3:PRlNT#4,USIN6 " 
tt.it" ;hdc;:PRINTI4,' H a ";:PRINTt4,USI 
NG H tt.#t";hfc;:PRINTt4," H":GQSUB 1390: 



CLSt4:REST0RE 1350:READ phl$:PRINTt4,phl 
$:GOSUB 1390 

510 IF malc>=5 THEN BORDER 6.0: RESTORE 1 
3B0:READ ph$:PRINTt4,CHR*(10) ;ph$:LOCATE 
t4,12,6:PENt4,3:PRINTt4,USINS "tt.tt";hd 
c;:PRINTt4," H a ";:PRINTt4,USING "tt.tt 
";hfc;:PRINTt4," H":60SUB 139e:CLSt4:RES 
TORE 1350:READ P hl$:PRINTt4,phl$:G0SUB 1 
390 

520 CLSt4:L0CATEt4,7,3:PRINTt4. "Voulez v 
ous un autre graphe ?":L0CATEt4,15,5:PRI 
NTt4,"0ui ou Non":WHILE a$<>"":a*=INKEY$ 
:WEND:HHILE a$<>"0" AND a$<>"N":a$=UPPER 
$<INKEY$):MEND:IF a$="0" THEN RUN 140 EL 
SE CALL e 
530 END 

iœ0 '*** boire un petit coup *♦* 
1010 DATA 1,319,30,5,1,319,30,5,1,319,30 
,5,1,319,30,5,1,319,30,5,1,319,30,5,1,35 
8,30,5,1,358,30,5,1,402,120,5,1,536,60,5 
,1,1,60,5,1,253,30,5,1,253,30,5,1,253,30 
,5,1,253,30,5,1,213,120,5,1,239,120,5,1, 
253,120,5,1,1,60,5,1,253,30,5 
1020 DATA 1,253,30,5,1,253,30,5,1,253,30 
,5,1,253,90,5,1,253,30,5,1,239,30,5,1,25 
3,30,5,1,284,30,5,1,319,30,5,1,253,60,5, 
1,284,60,5,1,1,30,5,1,239,30,5,1,239,30, 
5,1,239,30,5,1,239,30,5,1,239,30,5,1,239 
,30,5,1,253,30,5,1,284,30,5 
1030 DATA 1,319,60,5,1,253,60,5,1,379,12 
0,5,1,319,30,5,1,319,30,5,1,319,30,5,1,2 
53,30,5,1,319,120,5,1,358,120,5,1,379,12 
e,5, l,l,6e,5,l, 253, 3e, 5, 1,253, 3e, 5, 1,253 
,30,5,1,225,60,5,1,1,30,5,1,284,30,5,1,2 
84,30,5,1,284,30,5,1,284,60,5 
1040 DATA 1,1,30,5,1,225,30,5,1,225,30,5 
,1,225,30,5,1,253,60,5,1,1,30,5,1,319,30 
,5,1,319,30,5,1,319,30,5,1,319,60,5,1,1, 
30,5,1,253,30,5,1,253,30,5,1,284,30,5,1, 
319,120,5,1,358,120,5,1,379,120,5 
1050 RETURN 

ie60 '*** data «ode d'emploi **♦ 
1070 DATA " Ce programme est destine a e 
valuer", "votre taux d'alcoolémie. Pour ce 
la:", "-ENTREZ: NON-SEXE-POIDS-et HEURE. D 
E"," DEBUT d'absorption d'alcool:", "-VAL 
IDEZ a chaque fois par <ENTER>.", "-CHOIS 
ISSEZ dans la colonne de droite" 
1080 DATA " le type d'alcool et ENTREZ 1 
e nombre"," face a l'heure d'absorption. 
","-A la fin du repas ENTREZ le mot FIN" 
/-L'ordinateur se chargera du reste." 
1090 '*** listes des consommations *** 
1100 DATA 1-452-2 cl anis,2-457.-6 cl ", 
3-402-2 cl *hisky,4-407.-6 cl ",5-307.-2 
cl ",6-302-6 cl " 
1110 DATA 7-202-6 cl, 8-167.-6 cl vin cuit 
,9-122-12 cl vin, 10-112-12 cl ",11-107. 
-12 cl ",12-67.-25 cl bière, 13-67.-12 cl 



cidre, 14-407.-3 cl diges., 15-207.-3 cl lig 
ueur, 16-107.-12 cl champ. 
1120 '*** masse d'alcool par verre ♦** 
1130 m(h)=0:fine(h)=l:RETURN 
1140 m(h)=7.2:fine<h)=0:RETURN 
1150 m(h)=21.6:fine(h)=0:RETURN 
1160 m(h)=6.4:fine(h)=0:RETURN 
1170 m(h).=19.2:fine(h)=0:RETURN 
1186 m (h ) =4. 8: fine (h )=0: RETURN 
1190 m(h)=14.4:fine(h)=0:RETURN 
1200 m(h)=9.6:fine(h)=0:RETURN 
1210 m(h)=7.68:fine(hi=0:RETURN 
1220 m(h)=11.52:fine(h)=0:RETURN 
1230 m(h)=10.56:fine(h)=0:RETURN 
1240 m(h)=9.6:fine(h)=0:RETURN 
1250 m(h)=12:fine(h)=0:RETURN 
1260 m(h)=6:fine(h)=0:RETURN 
1270 ■m(h)=9.5:fine(h)=0:RETURN 
1280 m(h)=4.8:fine(h)=0:RETURN 
1290 m(h)=9.6:fine(h)=0:RETURN 
1300 '*♦* datas commentaires *** 
1310 DATA " BRAVO... vous êtes très s 
âge" 

1320 DATA " AUCUN troubles apparents mai 
s: votre acuité visuelle diminue 
votre estimation des distances 
est faussée" 
1330 DATA " ATTENTION : 

les troubles apparaissent 
les temps de reaction s allongen 
t légère euphorie ' 
1340 DATA " ATTENTION:conduire devient d 
angereux Votre vigilance diminue 
légère ivresse 
réflexes de plus en plus trouble 
s vous ne devez pas conduire de:" 
1350 DATA " si contrôle ou accident vous 
risquez: -1000 a 3000Ô frs d'amende 
-2 mois a 2 ans de prison 
+ retrait du permis de 3 ans maxim 
un si accident grave ou récidive ou deli 
t de fuite: les peines sont doublées." 
1360 DATA "DANGER:votre allure devient t 
itubaate votre vue se dédouble 

Vous ne devez absolument pas cond 
uire de: " 
1370 DATA " DANGER : 

toute conduite est impossible 
Vous ne devez absolument pas con 
duire de: " 
1380 DATA n DANGER : 

vous risquez de sombrer dans un 
coma pouvant entraîner la mort 

Vous ne devez absolument pas condui 
re de: " 

1390 '»** attente touche *** 
1400 PENt4, 2: L0CATEt4, 23, 6: PRINT#4, "une 
touche SVP.";:WHILE k$<>"":k$=INKEY$:WEN 
D:WHILE k$="":k$=INKEY$: WEND: RETURN 
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Jeux 



OPERATION 
OMEGA 



Jean-Michel BIEBER 




Dans l'espace, personne ne nous 
entend crier. Aux commandes d'un 
tout nouvel appareil, votre mission 
sera de délivrer la planète Oméga de 
ses tyrans. 

Opération Oméga est écrit en Basic, il 
ne peut donc rivaliser en vitesse avec 
les programmes Assembleur. Il devrait 
pourtant intéresser les propriétaires de 
664 et 6128. A vos joysticks ! 
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1 ' ♦****###*♦*#**♦*******###♦»**#*♦* 



26 


'* 




* 


3e 


'# 


OPERATION OMEGA 


♦ 


40 


'* 




* 


50 


'* 


AMSTRAD 


* 


60 


'* 


CPC 6128 


* 


70 


'♦ 




* 


80 


♦ 


(C) 1985 BIB COMPUTEUR 


* 


90 


'§ 




♦ 



1 00 ' ♦**#**♦*#**»»**###*♦**♦#**«***♦** 

110 MODE « 

120 INK 6,0 

130 INK 1,15: M 2,2: INK 3, 14: INK! 4,25:B 

ORDER 

140 INK 5,10: INK 6,7:INK 7,6: INK 8,20:GO 

SUB 600 

150 INK 0,0: PAPER 

160 FOR t=l TO 100: PLOT RND*640,RND*400, 

4: NEXT 

170 SOSUB 930:GOSUB 1060: GOTO 220 

180 FOR t=380 TO 400:MQVE l,t:DRAW 640, t 

,2:NEXT 

190 FOR t=l TO 20:MOVE l,t:DRAW 640, t, 2: 

NEXT 



200 FOR t=l TO "20: MOVE t, 22: DRAW t,400,3 

:NEXT 

210 FOR t=620 TO 640:MOVE t,l:DRAW t,380 

,3: NEXT 

220 r=90:g=PI/90:k=0.6 

230 a=0.6:b=PI-0.6 

240 FOR t=a TO h STEP g 

250 f=-PI/2 

260 GOSUB 420 

270 PLOT x+320,y+190,l 

280 FOR f=-PI/2 TO PI/2 STEP k 

290 PLOT x+320,y+ 190,1 

300 DRAM x+320,y+190,l 

310 ICXT f:NEXT t 

320 FOR f=-PI/2+0.4 TO PI/2-0.4 STEP g 

330 t=a 

340 GOSUB 420 

350 PLOT x+320,y+190 

360 FOR t=a TO b STEP k 

370 GOSUB 420 

380 DRAW x+320,y+190,l 

390 NEXT 

400 NEXT 

410 GOTO 480 

420 h=45»ABS<C0S(t*8)*CQS(**8)*SIN(t*5i* 

C0S(f*5)) 

430 IF h>5 THEN h=10-h 

440 h=h+r 

450 x=h*C0S(f)*C0S(t)*1.4 

460 y=h*SIN<f) 

470 RETURN 

480 MOVE 210, 206: DRAW 150, 160, 2: DRAW 450 

,240,3 

490 MOVE 210, 200: DRAW 150, 160, 2: DRAW 450 

,240,3 

500 MOVE 465, 242: DRAW 475,244,5 

510 PLOT 465,248,1: PLOT 470, 252,1: PLOT 4 

70,250,1 

520 MOVE 460, 244: DRAW 480,250,4 

530 DATA 112,97,114,32,32,74,77,32,66,73 

,69,66,69,82 

540 INK 10,19:PEN 10.-L0CATE 16,15:PRINT 

CHR$(236)+CHR$(237) 

550 x=3:y=370:PEN 8: FOR t=0 TO 13: MOVE 5 

30,170:DRAW 570,y,3:MOVE 530,170:DRAW 57 

0,y,0:READ a:G0SUB 1000:LOCATE 19,x:PRIN 

T CHR$(a):F0R k=l TO 500: NEXT k:x=x+l:y= 

y-18:NEXT 

560 PEN 0:LOCATE 16,15:PRINT CHR$(236)+C 

HR*(237) 

570 LOCATE 5,24:PEN 2:PRINT"CHARGEMENT.. 

580 RUN"0MEGA" 

590 END 

600 '**♦*****♦****♦*♦♦***♦♦ 

610 '* ALPHABET GENERE. * 

620 '********************** 

630 SYMBOL AFTER 64 

640 SYMBOL 67,120,120,96,96,96,126,126,0 



656 SYMBOL 65, 14,30,54, 102, 126, 162, 102,0 
668 SYMBOL 66,112,104,104,120,108,102,12 

6,0 

670 SYMBOL 68,112,120,108,102,102,126,12 

4,0 

680 SYMBOL 69,112,96,120,120,96,124,126, 

e 

690 SYMBOL 70,126,102,96,120,112,96,96,0 
700 SYMBOL 71,126,102,102,96,110,102,126 

,0 

710 SYMBOL 72,68,100,102,126,126,102,102 

,e 

720 SYMBOL 73,16,24,24,24,24,24,24,0 

730 SYMBOL 74,2,6,6,6,6,102,126,0 

740 SYMBOL 75,98,102,104,112,104,102,102 

750 SYMBOL 76,64,96,96,96,96,126,126,0 
760 SYMBOL 77,66,102,126,90,66,102,102,0 
770 SYMBOL 78,66,102,118,126,102,102,102 

,e 

780 SYMBOL 79,120,108,102,102,102,126,12 

6,0 

790 SYMBOL 80,120,124,100,124,96,96,96,0 

800 SYMBOL 81,124,126,66,66,78,126,126,0 

81Ô SYMBOL 82,120,100,100,120,104,102,10 

2,0 

820 SYMBOL 83,60,108,96,56,12,102,124,0 

830 SYMBOL 84,126,126,24,24,24,24,12,0 

840 SYMBOL 85,68,102,102,102,102,126,124 

850 SYMBOL 86,102,102,36,36,24,24,24,0 

860 SYMBOL 87,102,102,66,66,90,102,66,0 

870 SYMBOL 88,102,102,36,24,24,102,102,0 

880 SYMBOL 236,30,18,51,64,158,192,63,45 

890 SYMBOL 237,0,0,0,128,64,192,0,0 

900 SYMBOL 90,126,118,6,28,48,102,126,0 

910 RETURN 

920 ' 

930 ' 

940 PEN 5:L0CATE 7,3:PRINT"BIB" 

950 PEN 6:L0CATE 7,5:PRINT"COMPUTEUR" 

960 PEN 5:L0CATE 7, 7 sPRI NT "PRESENTE" 

970 PEN 7:L0CATE 3,22:PRINT"0PERATI0N~0 

MEGA" 

980 RETURN 

990 ' son 

1000 ENV 2,10,-1,5,5,-1,4 

1010 ENT -2,80,1,1,20,2,1 

1020 FOR a=l TO 6 

1030 SOUND 4,50,10,15,2,5,10 

1Ô40 NEXT ■ 

1050 RETURN • 

1Ô60 INK 10,1:INK 9,26 

1070 FOR t=l TO 5:M0VE 30,t:DRAW 610, t,l 

0:NEXT 

1080 FOR t=6 TO 20:MOVE 30,t:DRAN 610,t, 

2: NEXT 

1090 FOR t=20 TO 22:MOVE 30,t:DRAW 610,t 

,9: NEXT 



1100 FOR t=l TO 8:M0VE t,26:DRAW t, 374,1 
0:NEXT 

1110 FOR t=8 TQ 20:MOVE t,26:DRAW t,374, 
2: NEXT 

1120 FOR t=20 TO 22:M0VE t,26:DRAW t,374 
,9:NEXT 

1130 FOR t=616 TO 620:MOVE t, 26: DRAW t,3 
74, 9: NEXT 

1140 FOR t=620 TO 632:MQVE t,26:DRAW t,3 
74,2:NEXT 

1150 FOR t=632 TO 636:M0VE. t,26:DRAW t,3 
74, 10: NEXT 

1160 FOR t=394 TO 400:MQVE 30,t:DRAW 610 
,t, 10: NEXT 

1170 FOR t=382 TO 392:M0VE 3ô,t:DRAW 610 
,t,2:NEXT 

1180 FOR t=378 TO 380:MOVE 30,t:DRAW 610 
,t,9:NEXT 

1190 x=20:FOR t=l TO 22:M0VE t,x:DRAW t, 
20, 10:x=x-l:NEXT t 

1200 x=380:FOR t=l TO 22:M0VE t,x:DRAW t 
,380,10:x=x+l:NEXT t 

1210 x=380:FOR t=618 TO 636:MOVE t,380:D 
RAW 618,x,10:x=x+l:NEXT t 
1220 x=l:FOR t=618 TO 636:M0VE t,20:DRAW 
t,x,10:x=x+l:NEXT t 
1230 RETURN 



5 DEFINT a-z 

7 PEN 0:LOCATE 5, 24 :PRI NT "CHARGEMENT..." 
10 FOR i=30 TO 600 STEP 2:MOVE i, 30: DRAW 
i, 370,0: NEXT i 
12 GOSUB 4500 

15 SYMBOL AFTER 60: GOSUB 3870 
20 ENV 5,1,15,1,1,-2,1,1,0,2,12,-1,8,2,- 
1,20:ENT -1,1,0,3,1,-1,1,1,0,2,1,0,1,1,1 

,1 

40 CLS:INK 0,0: INC! 1,2: INK. 3, 6: PAPER 

55 INK 15,2,0:PEN 15:LQCATE 4,10:PRINT"U 

N INSTANT SVP" 

80 GOSUB 3380 

90 GOSUB 2620 

95 DIM N$(10) 

97 DIM S(10) 

98 FOR U=l TO 10:S(U)=0:N$(U)="PERSONNE" 
:NEXT U 

100 FOR 1=1 TO 14: INK 1,0: NEXT I: GOSUB 2 

890 

•101 INK 14,0:PEN 0:LOCATE 4,10:PRINT"UN 

INSTANT SVP" 

102 INK 0,0: INK 1,2: INK 3, 6: PAPER 

103 SPEED INK 10, 10: INK 7,18,3 

105 INK 2,23: INK 4, 10: BORDER 0: INK 5,24 

107 INK 6,15 

125 FOR k=l TO 200: NEXT k:FOR k=l TO 3: S 

OUND 1,20,30, 15,5, l:FOR 1=1 TO 800:NEXT 

1:NEXT k 

130 zl$=CHR*(225)+CHR$(226) 



140 z2«=CHR$ (227) +CHR$ (228) +CHR$ (229) 

150 z3$=CHR$ (230) +CHR$ (231 ) +CHR$ (232) 

160 z4»=CHR$ (233) +CHR$ (234) +CHR* (235) 

170 z5*=CHR$(236)+CHR$(237) 

180 z6$=CHR$ (238) +CHR$ (239) +CHRS (240) 

190 z7*=CHR*(241)+CHR$(242)+CHR*(243) 

200 z8$=CHR$(244> 

240 sc=0 

245 vi=3 

250 rc=2:wp=l 

260 tb=l:s=10:TP=0 

270 a=l:c=5 

275 TBJ=0 

280 ch=0 

290 Bl=244 

300 v=19: t=5 

310 h=v:x=0 

320 b=10:ct=0 

330 ^=320:ca=0 

340 ts=0 

345 GOSUB 3360 

350 '***♦*******♦*****♦********* 

360 '* * 

370 '* PRG PRINCIPAL * 

380 '* * 

Z% *************************** 

400 PEN 1:LC€ATE a,b:PRINT zl* 
410 J=JOY(0) 
420 IF t>20 THEN t=10 
430 IF J=16 THEN MOVE 100, Bl: DRAW 600,B1 
,Ô:DRAW 100, Bl, 2: DRAW 600, Bl, 2: DRAW 100, 
B1,0: GOSUB 2420 

440 IF J=l THEN GOTO 450:ELSE IF J=2 THE 
N GOTO 460:ELSE GOTO 470 
450 IF B<=5 THEN GOTO 470:ELSE PEN 0:LOC 
ATE A,B:PRINT Zl*:B=B-l:Bl=Bl+18:PEN 1:L 
OCATE A,B:PRINT Zl*:GOT0 470 
460 IF B>=14 THEN GOTO 470:ELSE PEN 0:LO 
CATE A,B:PRINT Z1$:B=B+1:B1=B1-18:L0CATE 
A,B:PEN lîPRINT Zl* 
470 IF CA=1 THEN GOSUB 950: GOTO 410 
480 IF x=0 THEN ol=INT(RND*10)+5:x=l:n=l 
9 

490 ON TB GOSUB 560,710,890,1040 
5i30 GOTO 400 
510 ' *»*♦****#****«*#**♦♦♦****♦**** 

520 '* * 

530 '* NIVEAU 1 « 
540 '* * 

550 ***M*****«1H»*«™*********** 

560 ' 

570 o=INT(RND»10)+5 

580 IF ct=8 THEN tb*2:v=19:t=10:ct=0:s=2 

0:X=1:PEN 0:LOCATE w,ol:PRINT " -":FOR k 

=1 TO 3:SQUND 1,20,30, 15,5, l:FOR 1=1 TO 

800:NEXT l.-NEXT k:INK 7,18:RETURN 

590 IF w=l THEN PEN 0:LOCATE «,ol:PRINT 

CHR$(202)+" ":x=0:ELSE PEN 7:LOCATE «,ol 

:PRINT CHR$(202)+" ":w=h-1 
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600 IF v=l AND b=t THEN vi=vi-l:GOSUB 33 
00:GQSUB 2510:GOSUB 332e:v=19:t=5 
61Ô IF h=1 AND b=ol THEN LOCATE v,t:PEN 
0:PRINT z2*:vi=vi-l:GOSUB 3306: GOSUB 251 
0:GOSUB 3320:w=19:ol=INT(RND*10)+5:t=5:v 
=19 

629 LOCATE v,t:PEN 0:PRINT 22$: IF t>=o T 
HEN GOTO 640:ELSE t=t+l 

630 SOUND l,500+t»10,10 

640 IF v=l THEN SOUND 1,2O,10:PEN 0:LOCA 
TE v,t:PRINT z2*:v=19:t=5: RETURN: ELSE v= 
v-UPEN 5.-LQCATE v,t:PRINT z2$ 
650 RETURN 

660 ' **#***♦*##♦**#*******♦«***♦**** 
670 '* * 

680 '* 2 TABLEAU * 
690 '* * 

700 ' ♦♦♦******##♦**♦*♦************** 
710 ' 

720 IF CT=5 THEN VI=VI+l:TB=3:CT=0:s=30: 
LOCATE v,t:PEN 0:PRINT z3$:v=19:t=INT(RN 
D*10)+5:GQSUB 3050: RETURN 
730 IF ch=l THEN GOTO 790 
740 IF v<=l AND b=t THEN vi=vi-l:GOSUB 3 
320:GQSUB 3350:GOSUB 3300: GOSUB 2510: v=l 
9:t=10 

750 LOCATE v,t:PEN 0:PRINT z3* 
760 IF v=l THEN SOUND 1,20,10:PEN 0:LOCA 
TE v,t:PRINT z3$:v=19:t=INT(RND*10)+5:RE 
TURN:ELSE v=v-l:PEN 5:L0CATE v,t:PRINT z 
3$ 

770 IF v=lB OR v=14 OR v=l« OR v=8 THEN 
LOCATE v,t:PEN 1:PRINT z3$ 
780 RETURN 

790 PEN 0:LOCATE v,t:PRINT z8*:v=v-2 
800 IF v<=2 AND b=t THEN vi=vi-l:GOSUB 
3320:GOSUB 3300:GOSUB 2510:v=19:t=10:ch= 
0: 

810 LOCATE v,t:PEN 7:PRINT z8* 
820 IF v=l OR v=2 THEN ch=0:PEN 0: LOCATE 
v,t:PRINT z8$:v=19:t=10 
830 RETURN 

840 ' *♦♦#*****♦****#♦♦*♦****#******* 
850 '* * 

860 * 3 tableau * 
870 '* * 

880 ' ******************************* 
890 ' 

900 IF ct=8 THEN ct=0:s=40:tb=4:t=INT(RN 
D*1Ô)+5:G0SUB 3050: v=l: RETURN 
910 LOCATE v,t:PEN 0:PRINT z4$ 
920 IF v<=l THEN SOUND 1,20,10:PEN 0:LOC 
ATE v,t:PRINT z4*:v=19:t=INT(RND»10)+5:R 
ETURN:ELSE v=v-l:PEN 5: LOCATE v,t:PRINT 
z4$ 

930 IF v=18 OR v=14 OR v=10 OR v=8 THEN 
LOCATE v,t:PEN 1:PRINT z4$:ELSE RETURN 
940 vl=v-2:ca=l 
950 vl=vl-l:PEN 3: LOCATE vl,t:PRINT z8$+ 
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960 IF vl=l THEN PEN 0:LOCATE vl,t:PRINT 

z8*:ca=0 
970 IF b=t AND vl<=2 THEN LOCATE v,t:PEN 

0: PRINT z3$: v=19: t=lô: ca=0: vi=vi-l : GOSU 
B 3320: GOSUB 2510 
980 RETURN 

990 ' ******************************* 
1000 '♦ * 

1010 '* 4 tableau * 
1020 '* * 

1030 ' *****♦**♦»***♦♦*«*****#*♦♦***»# 

1040 ' 

1050 IF ct=8 THEN GOTO 1100:RETURN 

1060 IF v=19 THEN SOUND 1,20, 10: PEN 0:LO 

CATE v,t:PRINT z5$:v=l:t=INT(RND*10)+5:R 

ETURN 

1070 LOCATE v,t:PEN 0:PRINT z5$:v=v+l:t= 

INT(RND*10)+5:PEN 6:L0CATE v,t:PRINT :5$ 

:SOUND l,t*10,15 

1080 IF v=2 AND b=t THEN vi=vi-l: SOUND 1 

,200,30, 15: GOSUB 3320:GOSUB 2510 

1090 RETURN 

1 100 ' *♦♦**»***♦♦*#***********#»♦*♦♦* 
1110 '* * 

1120 '* PASSAGE AU TABLEAU * 
1130 '* SUPERIEUR * 
1140 '* * 

1 1 50 »*******♦#*****♦**##*♦*#******* 
1160 FOR T=0 TO 640:MOVE T,64:DRAW T,180 
,0:NEXT T 
1170 tb=l:s=10 
1175 V=19:T=5 
1180 w=v:ct=0 

1185 TP=TP+1 

1186 IF TP=1 THEN INK 5,7:ELSE IF TP=2 T 
HEN INK 5,1B:ELSE IF TP=3 THEN INK 5,13: 
ELSE IF P=4 THEN TP=0: INK 5,0 

1190 ts=ts+l:ON ts GOSUB 3750 
1200 GRAPHICS PEN l:TAG:MOVE 526,3«:PRIN 
T vi;:TAGOEF 

1210 IF vi<>0 THEN GOTO 360 
1215 ' *****♦************#***♦**** 
1217 '* * 

1220 '» FIN JEU / ENTRE DU NOM * 
1222 '* * 

1225 ' a************************** 
1230 ' 

1240 LOCATE 2, 13: INK 11,22,0:PEN 11:PRIN 
T"G AME - V E R":FOR T=l TO 3000: N 
EXT T:INK 11,22 
1250 FOR J=l TO 2000: NEXT J 
1260 INK 0,0: INK 1,11: INK 2,14: INK 3,6 
1270 MODE 1: BORDER 
1280 PEN 3: LOCATE 2,3:PRINT"SELECTI0NNEZ 
VOTRE NOM AVEC LA MANETTE" 
1290 LOCATE 10,7:PRINT"PUIS TIREZ POUR V 
ALIDER" 
1300 LOCATE 5,5:PEN 2:PRINT"< 



>» :PEN i 

1310 CR=65:A*=CHR*(CR) 

1320 b$="" 

1330 FOR u=l TO 40:LOCATE u,l:PRINT CHR* 

(127):NEXT u 

1340 FOR u=l TO 40: LOCATE u, 24: PRINT CHR 

$(127):NEXT u 

1350 FOR u=2 TO 23: LOCATE l,u: PRINT CHR$ 

(127):NEXT u 

1360 FQR'u=2 TO 23: LOCATE 40, u: PRINT CHR 

$(127): NEXT u 

1370 PEN 2 

1380 TAG:MOVE 310,210:GRAPHICS PEN 2:PRI 

NT" ";:MOVE 310, 210: PRINT A*;:TAGOFF 

1390 J=JOY(0) 

1400 IF J=8 THEN CR=CR+1 

1410 IF J=4 THEN CR=CR-1 

1420 IF cr>93 THEN cr=65:ELSE IF cr<65 T 

HEN cr =93 

1430 A$=CHR$ŒR) 

1440 TA6:M0VE 310,210:PRINT" ";:MOVE 310 

,210:PRINT A$;:TAGOFF 

1450 IF j=16 AND cr=91 THEN a$=CHR$(46) 

1460 IF j=16 AND cr=92'THEN GOTO 1461:EL 
SE GOTO 1470 

1461 IF LEN(b*)>« THEN b$=LEFT$(b$,LEN(b 
$)-l):a$="": LOCATE 14,17:PRINT" 

".-LOCATE 14,17:PRINT b$:ELSE b*=" 

il 

1470 IF j=16 AND cr=93 THEN N$=B$:GOTO 1 

510 

1480 IF J=16 THEN b*=b$+a*: LOCATE 14,17: 

PRINT b* 

1490 FOR t=l TO 300: NEXT t 

1500 IF LEN(b$)=15 THEN n$=b$:ELSE GOTO 

1390 

1510 IF SCOSU0) THEN LOCATE 5,20:PRINT 

"PAS DE MEILLEUR SCORE":FOR T=l TO 500(5: 

NEXT T:60T0 1620 

1520 IF sc>sil) THEN s(10)=s(9):s(9)=s(8 

):s(8)=s(7):s(7)=s(6):s(6)=s(5*:s(5)=5(4 

):s(4)=s(3):s(3)=s(2):s(2)=s(l):5(l)=5c: 

GOSUB 1720:GOTO 1620 

1530 IF sc>5(2) THEN s(10)=s(9):s(9)=s(8 

):s(8)=s(7):s(7)=s(6):s(6)=s(5):s(5)=s(4 

):s(4)=5(3):s(3)=s(2):s(2)=sc:G0SUB 1730 

:GOTO 1620 

1540 IF sc>s(3) THEN s(10)=s(9):s(9)=s(8 

):s(8)=s(7):s(7)=s(6):s(6)=s(5):s(5)=s(4 

):s(4)=s(3):5(3)=sc:60SUB 1740: GOTO 1620 

1550 IF sc>s(4) THEN s(10)=s(9):s(9)=s(8 

):s(8)=s(7):s(7)=s(6):s(6)=s(5):s(5)=si4 

):s(4)=sc:GOSUB 1750:GOTO 1620 

1560 IF sc>5(5) THEN s(10)=s(9):s(9)=s(8 

):s(8)=s(7):s(7)=s(6):s(6i=s(5):s(5)=sc: 

GOSUB 1760: GOTO 1620 

1570 IF sc>5(6) THEN s(10)=s(9):s(9)=s(8 

):5(8)=s(7):s(7)=s(6î:5(6)=sc:G0SUB 1770 

:GOTO 1620 



1580 IF sc>s(7) THEN s(10)=s(9):s<9)=5(8 

):s(8)=s(7):s(7)=sc:G0SUB 1780:GOTO 1626 

1590 IF sc>s(8) THEN s(10)=s(9):s(9)=5(8 

):s(8)=sc:G0SUB 1790:GOTO 1626 

1660 IF sc>s(9) THEN s(lv))=s(9):s(9)=sc: 

GOSUB 161»: GOTO 1626 

161Ô s(10)=sc:n*(10)=n* 

1626 «ODE 1 

1630 FOR u=5 TO 35:LOCATE u, 20: PRINT CHR 

$(127):NEXT u 

1640 FOR u=5 TO 35:L0CATE u,5:PRINT CHR* 

(127):NEXT u 

1650 FOR u=5 TO 19:L0CATE 5,u:PRINT CHR* 

(127):NEXT u 

1660 FOR u=5 TO 19:L0CATE 35,u:PRINT CHR 

*(127):NEXT u 

1670 c=l:FOR t=8 TO 17:LOCATE 6,t:PEN 2: 

PRINT s(c):LOCATE 12,t:PEN 1:PRINT" 

..":LOCATE 19,t:PEN 3:PftINT n$(c):c=c+l: 

NEXT t 

1680 b$="":sc=0 

1690 PEN 3:L0CATE 5, 23: PRINT" VOULEZ-VOUS 

REJOUER O/N" 

170Ô Z*=UPPER$(INKEY*):IF Zi="" THEN GOT 
1700 
1710 IF Z$="0" THEN MODE 0:GOTO 100:ELSE 

IF Z$="N" THEN END:ELSE GOTO 1700 
1720 n*(10)=n$(9):n$(9)=n$(8):n$(8)=n*(7 
):n*(7)=n$(6):n$(6)=n$(5):n$(5)=n*(4):n$ 
(4)=n$(3):n$(3)=n$(2):n$(2)=n$(l):n$(l)= 
n$:RETURN 

1730 n$(10)=n$(9):n*(9)=n*(8):n$(8)=n*(7 
):n$(7)=n*(6):n$(6)=n$(5):n$(5)=n$(4):n$ 
(4)=n$(3):n$(3)=n*(2):n$(2)=n$:RETURN 
1740 n*(10)=n$(9):n$(9)=n$(8):n$(8)=n$(7 
):n$(7)=n*(6):n*(6)=n$(5):n$(5)=n$(4):n$ 

(4)=n$(3):n*(3)=n$:RETURN 

1750 n$(10)=n$(9):n*(9)=n$(8):n»(8)=n$(7 

):n$(7)=n$(6):n$(6)=n*(5):n$<5)=n$(4):n$ 

(4)=n*:RETURN 

1760 n$(10)=n$(9):n*(9)=n$(8):n$(8)=n$(7 

):n$(7)=n$(6):n$(6)=n$(5):n*(5)=n*:RETUR 

H 

1770 n$(10)=n*(9):n$(9)=n$(8):n$(8)=n»(7 

):n$(7)=n$(6):n$(6)=ni:RETURN 

1780 n$(10)=n$(9):n$(9)=n$(8):n${8)=n*(7 

):n$(7)=n$:RETURN 

179Ô n*(10)=n$(9):n$(9)=n$(8):n$(8)=n$:R 

ETURN 

1800 n$(10)=n$(9):n$(9)=n$:RETURN 

1810 ' ♦***********«******»******#**** 

1820 '* * 

1830 '* PLEIN CARBURANT * 

1840 '* * 

1 B50 ' *#******♦***♦*♦******♦♦**#***#* 

1860 PEN 0:FOR 1=0 TO 640 STEP 2:MOVE I, 

64: DRAW 1,180,0: NEXT I-.PEN 1 

1870 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1 



1880 DATA 2,2,2,2,2,2,3,1,1,1,1,1,1,1,1, 

1,1,1,1,1 

1890 DATA 0,0,0,0,0,9,5,1,1,1,1,1,1,1,1, 

1,1,1,1,1 

1900 DATA 10,10,10,10,10,0j5,l,l,l,l,l,l 

,1,1,1,1,1,1,1 

1910 DATA 10,10,10,10,10,0,5,1,1,1,1,1,1 

,1,1,10,10,10,10,1 

1920 DATA 10,0,0,0,0,9,5,1,1,1,1,10,10,2 

,2,0,0,0,5,1 

1930 DATA 10,0,0,4,4,4,6,10,10,2,2,0,0,0 

,0,0,9,0,5,1 

1940 DATA 10,0,0,0,0,0,0,0,0,0,0,9,0,4,4 

,10,10,0,5,1 

1956 DATA 10,0,0,4,4,4,4,4,4,4,6,10,10,1 

,1,1,10,0,5,1 

1960 DATA 10,10,10,1,1,1,1,1,1,1,1,1,1,1 

,1,10,10,0,5,1 

1970 DATA 1,1,1,1,1,1,1,1,1,1,1,7,2,2,2, 

0,0,0,5,1 

1980 DATA 1,10,10,10,10,10,10,1,1,1,1,8, 

0,0,0,0,0,9,5,1 

1990 DATA 10,0,9,0,0,0,0,2,2,10,10,8,0,1 

0,10,10,10,10,10,1 

2000 DATA 10,0,0,4,4,0,9,0,0,0,0,0,0,10, 

1,1,1,1,1,1 

2010 DATA 10,0,0,10,1,10,10,4,4,4,4,4,4, 

10,1,1,1,1,1,1 

2020 DATA 10,0,0,10,1,1,1,1,1,1,1,1,1,1, 

1,1,1,1,1,1 

2030 HAUT=5 

2Ô40 RESTORE 1870: FOR 1=1 TO 16 

2050 INK 10, 30: PEN 3 

2060 FOR 1=1 TO 20 

2070 READ A 

2080 IF A=6 THEN M0T*=CHR$(142) 

2090 IF A=5 THEN MQT$=CHR$(217) 

2100 IF A=7 THEN M0T$=CHR$(135) 

2110 IF A=4 THEN hOT$=CHR$(21B) 

2120 IF A=l THEN KOT$=CHR$(207) 

2130 IF A=8 THEN MGT$=CHR$(219) 

2140 IF A=0 THEN MOT*=CHR$(32) 

2150 IF A=2 THEN M0T$=CHR$(216) 

2160 IF A=3 THEN M0T»=CHR*(139) 

2170 IF A=10 THEN M0T*=CHR*(215) 

2175 IF a=9 THEN mot$=CHR$(96):PEN 4. 

2180 LOCATE I, HAUT: PRINT MOT$ 

2185 PEN 3 

2190 NEXT I 

2200 HAUT=HAUT+1 

2210 NEXT 1 

2220 :<=10:y=305:INK 11, 11: INK 12,26 

2240 M=0:Y1=0 

2250 INK 13,2,6: INK 14,6,2 

2260 TAG:GRAPHICS PEN 2:M0VE >;,y:PRINT C 

HR$(95);:TAG0FF 

2270 j=JOY(0) 

2275 IF x<9 THEN ::=9:ELSE IF y<110 THEN 

GOTO 2365 



2280 ON j GOTO 2300,2310,2340,2320,2340, 
2340,2340,2330 

2290 IF iii=0 THEN x 1=2: GOTO 2340; ELSE IF 
(ii=l THEN xl=-2:GQTQ 2340: ELSE GOTO 2340 
2300 IF TEST(X-4,YK>0 OR TEST(X+30,Y)<> 
THEN GOTO 2352:ELSE yl=l:Xl=0:m=2:GQTQ 
2340 

2310 IF TEST(X-4,Y-16)<>0 OR TEST(X+30,Y 
-16)<>0.THEN GOTO 2353:ELSE yl=-l:Xl=0:m 
=2: GOTO 2340 

2320 :<l=-2:yl=0:«i=l:GOTQ 2340 
2330 x 1=2: yl=0:m=0: GOTO 2340 
2340 TAG:GRAPHICS PEN 2:M0VE x,y:PRINT" 
";:x=x+xl:y=y+yl:MOVE x,y:PRINT CHR$(95) 
; : TAGOFF 

2349 IF TEST(x-4,y+2K>0 OR TEST(x-4,y-l 
4)<>0 THEN GOTO 2352 

2350 IF TEST(X+30,Y+2)<>0 OR TEST(x+30,y 
-14K>0 THEN GOTO 2352 

2351 GOTO 2270 

2352 IF TEST(X-4,Y+2)=3 OR TEST(X+30,Y+2 
)=3 THEN GOTO 2358: ELSE GOTO 2359 

2353 IF TEST(X-4,Y-16)=3 OR TEST(X+30,Y- 
16) =3 THEN GOTO 2358: ÉLSE GOTO 2359 

2354 IF TEST(X+30,Y+2K>0 OR TEST(x+30,y 
-16)<>0 THEN GOTO 2358:ELSE GOTO 2359 

2355 IF TEST(x-4,y+2)=3 OR TEST(x-4,y-14 
)=3 THEN GOTO 2358: ELSE GOTO 2359 

2358 GOSUB 3250: TA6: FOR t=l TO 3: FOR o=l 
TO 3:6RAPHICS PEN 5:M0VE x,y:a=96+o:PRI 

NT CHR$(a);:FOR i=l TO 200: NEXT i:GRAPHI 
CS PEN 0:I1OVE x,y:PRINT CHR*(a);:l€XT o: 
NEXT t:TAG0FF:60T0 2365 

2359 SOUND l,20,20,15,l,l,12:sc=sc+l:6OS 
UB 3370: GOTO 2270 

2365 bl=244:c=5:a=l:b=10:v=19:t=5:x=0:GO 
SUB 3210: FOR i=2 TO 10: LOCATE i,2:PEN 6: 
SOUND 1,400, 15: PRINT CHR$ (207): NEXT i 

2367 Q=320: PEN 0:FOR 1=0 TO 640 STEP 2:11 
OVE I , 64: DRAW I,340,0:NEXT I:PEN 1 

2368 IF tbj=l THEN tbj=0:GOSUB 3750:RETU 
RN 

2369 GOSUB 3100:tbj=l:RETURN 

2370 ' »###*»****♦»*♦**♦******♦******* 
2380. '* * 
2390 '* DIVERS SOUS/PRG ♦ 
2400 '* * 
2410 ' *♦##»♦**♦#*»»♦♦**#«************ 
2420 q=q-B:IF q<46 THEN GOTO 1840: ELSE M 
OVE q,368:DRAW q,382,0:HOVE q+4,368:DRAH 

q+4, 382,0 

2430 IF bOt THEN FOR n=l TO 100: SOUND 1 
29,15:NEXT:RETURN 
2435 IF b=5 THEN RETURN 
2440 FOR n=l TO 100:SOUND 129,15:NEXT n 
2450 GOSUB 3250:FOR H=l TO 5:LOCATE V,T: 
PEN H: PRINT Z6*:PEN H-l: LOCATE V,T:FfiINT 

Z7$:FOR Y=l TO 100: NEXT Y: NEXT H 
2460 PEN 0:LOCATE V,T:PRINT Z6*:L0CATE V 
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,T:PRINT Z7$ 

247Ô ct=ct+l:sc=sc+s:BOSUB 3320:1F tb=l 
THEN v=19:t=5 
2475 IF tb=4 THEN v=l 
2480 ch=l:RETURN 

249» ' *************************** 
2492 '* * 

2495 '* explosion vaisseau * 
2497 '* « 

25Ô0 ' *************************** 
2516 LOCATE a,b:PEN 3:PRINT CHR$(203)+CH 
R$(203)+" ":GQSUB 3250: FOR j=l TO 400:N£ 
XT j 

2520 LOCATE a,b:PRINT CHR*(197)+CHR$<199 
):GOSUB 3280 

2530 FOR j=l TO 500:NEXT j 
2540 LOCATE a,b:PRINT u " 
2550 RETURN 

2560 ' ******************************* 
'* * 

* CREATION * 

• DES CARACTERES * 
'« * 

******************************* 



2580 

2590 

2600 

2610 

2620 ' 

2625 SYMBOL 217 

2627 SYMBOL 219 

240,240 . 

2630 SYMBOL 225 

2640 SYMBOL 226 

2650 SYMBOL 227 

2660 SYMBOL 228 

2670 SYMBOL 229 

2680 SYMBOL 230 

2690 SYMBOL 231 

92,0 

2700 SYMBOL 232 

4 

2710 SYMBOL 233 

2720 SYMBOL 234 

224 

2730 SYMBOL 235 

2740 SYMBOL 236 

5 

2750 SYMBOL 237 

2760 SYMBOL 238 

2770 SYMBOL 239 

2780 SYMBOL 240 

2790 SYMBOL 241 

2800 SYMBOL 242 

2810 SYMBOL 243 

2820 SYMBOL 244 

2830 SYMBOL 245 



2840 SYMBOL 246 

2850 SYMBOL 216 

2860 SYMBOL 218 

2870 SYMBOL 215 
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15,15,15,15,15,15,15,15 
240,240,240,240,240,240, 

128.193,255,248,63,3,0,0 
224,240,254,7,254,248,96 

0,0,0,1,2,31,7,0 

3,5,233,17,3,252,16,120 

192,128,0,0,0,0,0,0 

1,3,12,31,15,7,3,0 

192,192,95,210,242,223,1 

64,128,128,0,0,128,128,6 

7,124,12,27,27,12,124,7 
224,63,26,245,250,21,63, 

0,0,128,128,128,128,0,0 
30,18,51,64,158,192,63,4 

0,0,0,128,64,192,0,0 

8,64,4,8,64,16,13,64 

16,65,8,32,0,68,4,3 

0,0,0,128,0,64,0,0 

49,14,32,17,36,64,8,17 

0,8,3,72,0,129,24,32 

0,128,0,0,0,0,128,0 

0,0,48,120,255,124,48,0 

0,120,72,254,224,255,56, 

0,0,0,0,31,0,0,0 

255,255,255,255,0,0,0,0 
0,0,0,0,255,255,255,255 
255,255,255,255,255,255, 



255,255 

2880 RETURN 

2890 GRAPHICS >EN 3:G0SUB 312«:x=352:xl= 

398:F0R t=l TO 18:MQVE t,x:DRAN t,xl,l:x 

=x+0.5:xl=xl-0.5:NEXT:MOVE 1,350:DRAM 64 

0,350,1 

2900 x=352::<l=398:FOR t=640 TO 622 STEP 

-l:MOVE t,x:DRAW t,xl,l:x=x+0.5:xl=xl-0. 

5:NEXT 

2910 x=2:xl=636:F0R t=398 TO 390 STEP -1 

:MOVE x,t:DRAW xl,t,2:x=x+2:xl=xl-2:NEXT 

2920 x=2:x 1=636: FOR t=350 TO 360:MOVE x, 

t:DRAW xl,t,2:x=x+2:xl=xl-2:NEXT 

2930 MOVE 1,350: DRAW 640,350,1 

2940 MOVE 1,398: DRAW 640,398,1 

2950 TAG: GRAPHICS PEN 3: MOVE 360,382:PRI 

NT"ENERGIE";:TA60FF 

2960 x=l:xl=50:FOR t=l TO 18:M0VE t,x:DR 

Mi t,xl,l:x=x+0.5:xl=xl-0.5:NEXT:MOVE 1, 

350: DRAW 640,350,1 

2970 x=l:xl=50:FOR t=640 TO 622 STEP -1: 

MOVE t,x:DRAW t,xl,l;x=x+0.5:xl=xl-0.5:N 

EXT 

2980 x=2:x 1=636: FOR t=50 TO 40 STEP -1:M 

OVE x,t:DRAW xl,t,2:x=x+2:xl=xl-2:NEXT 

2990 x=2:xl=636:F0R t=l TO 10:MOVE x,t:D 

RAM xl,t,2:x=x+2:xl=xl-2:NEXT 

3000 MOVE 1,52: DRAW 640,52,1 

3O10 MOVE 1,0: DRAW 640,0,1 

3020 TAG:6RAPHICS PEN 3: MOVE 30,30: PRINT 

"SCORE: ";:TA60FF 

3030 TAG: MOVE 390,30:PRINT"VIES:";:TAGOF 

F 

3040 FOR i=2 TO 10:LQCATE i,2:PEN 6:S0UN 

D 1,400, 15:PRINT CHR$(207):NEXT i 

3050 'FOR k=l TO 200:NEXT k:FOR k=l TO 3 

:SOUND 1,20,30, 15,5, l:FOR 1=1 TO 80è:NEX 

T 1:NEXT k 

3060 RETURN 

3070 '***************************** 

3080 '* * 

3090 '* DECORS * 

3100 '* * 

3110 ***************************** 

3120 FOR 1=1 TO 640 STEP 2: MOVE I,70:DRA 

W i,RND*105+70,4 

3125 NEXT i 

3140 RETURN 

3 1 50 ' **#**#*******#**#******** 

3160 '* * 

3170 '* explosion * 
3180 '* * 

3190 '************************* 

3200 LOCATE a,b:PEN 0:PRINT zl* 

3210 FOR n=l TO 35: SOUND l,n+40,n 

3220 SOUND 4,60-n,n 

3230 SOUND 2,n+30,l:NEXT 

3240 RETURN 

3250 FOR j=15 TO 1 STEP -l:SOUND 2,0,15, 



j,0,0,l:NEXT i 

3260 RETURN 

3280 ENV 2,10,-1,8,5,-1,4 

3290 ENT -2,80,1,1,20,2,1 

3300 SOUND 4,50,100,15,2,2,20 

3310 FOR t=l TO 500:NEXT:RETURN 

3320 ' ***************************** 

3330 '* GESTION DU SCORE * 

3340 'm*************************** 

3350 IF vi=0 THEN GOTO 1200 

3360 GRAPHICS PEN 1: TAG: MOVE 526,30:PRIN 

T vi;:TAGOFF 

3370 6RAPHICS PEN l:TAG:MOVE 210,30:PRIN 

T se; :TAGOFF: RETURN 

3380 '********************** 

3390 '* ALPHABET GENERE. » 

3400 ********************** 

3410 SYMBOL AFTER 64 

3420 SYMBOL 67,120,120,96,96,96,126,126, 



3430 SYMBOL 65,14,30,54,102,126,102,102, 



3440 SYMBOL 66 

26,0 

3450 SYMBOL 68 

24,0 

3460 SYMBOL 69 

.0 

3470 SYMBOL 70 



3480 SYMBOL 71 

6,0 

3490 SYMBOL 72 

2,0 

3500 SYMBOL 73 

3510 SYMBOL 74 

3520 SYMBOL 75 

2,0 

3530 SYMBOL 76 

3540 SYMBOL 77 



3550 SYMBOL 78 

2,0 

3560 SYMBOL 79 

26,0 

3570 SYMBOL 80 



3580 SYMBOL 81 



3590 SYMBOL 82 

02,0 

3600 SYMBOL 83 

3610 SYMBOL 84 

3620 SYMBOL 85 

4,0 

3630 SYMBOL 86 

3640 SYMBOL 87 

3650 SYMBOL 88 



112,104,104,120,108,102,1 

112,120,108,102,102,126,1 

112,96,120,120,96,124,126 

126,102,96,120,112,96,96, 

126,102,102,96,110,102,12 

68,100,102,126,126,102,10 

16,24,24,24,24,24,24,0 

2,6,6,6,6,102,126,0 

98,102,104,112,104,102,10 

64,96,96,96,96,126,126,0 
66,102,126,90,66,102,102, 

66,102,118,126,102,102,10 

120,108,102,102,102,126,1 

120,124,100,124,96,96,96, 

124,126,66,66,78,126,126, 

120,100,100,120,104,102,1 

60,108,96,56,12,102,124,0 

126,126,24,24,24,24,12,0 

68,102,102,102,102,126,12 

102,102,36,36,24,24,24,0 

102,102,66,66,90,102,66,0 

102,102,36,24,24,102,102, 



3660 SYMBOL 89, IÔ2, 102,66,36,24,24,24, W 
367» SYMBOL 90, 126, 118, 6, 28, 48, 192, 126,0' 
36B0 SYMBOL 91,0,0,9,9,9,24,24,0 

3699 SYMBOL 92,24,32,96,254,254,96,32,16 

3700 SYMBOL 93,0,233,169, 179, 172,179,233 

3710 SYMBOL 95,9,60,126,255, 129,126,24,0 
372e SYMBOL 96,66,98,249,253,253,126,60, 



3730 SYMBOL 97,9,9,24,60,60,24,0,0 

3732 SYMBOL 98,0,69,102,194,67,102,69,16 

3735 SYMBOL 99,126,195,129,1,128,129,195 

,119 

3749 RETURN 

3745 ' **************************** 

3747 '* * 

3759 '* DECORS No 2 * 
3752 '» * 

3755 ' *************************** 

3769 INK 7,0:11*: 9,0 

3770 INK 8,0 
3780 FOR i=3ê TO 370 STEP 2:M0VE i,64:DR 
AW 199,159,9:NEXT 1 

3785 INK 9,11 

3799 FOR i=0 TO 329 STEP 2:MOVE i , 64: DRA 

W 0,150,8:NEXT i 

3795 FOR i=50 TO 650 STEP 2:MOVE i,64:DR 

AW 35ê,155,8:NEXT i 

3899 FOR 1=250 TO 680 STEP 2:M0VE i,64:D 

RAW 500, 145, 8: NEXT i 

3892 INK 8,13 

3819 FOR 1=9 TO 149 STEP 2:MQVE i, 64: DRA 
H 90,169,7:NEXT i 

3815 FOR i=30 TO 170 STEP 2-.M0VE i,64:DR 
AW 129,150,7:NEXT i 

3820 FOR i=70 TO 250 STEP 2:tK3VE i,64:DR 
AW 175, 130, 7: NEXT i 

3822 INK 7,15 

3825 FOR i=409 TO 550 STEP 2:MOVE i,64:D 

RAW 435,lê0,l:NEXT i 

3839 FOR i=430 TO 540 STEP 2:MOVE i,64:D ' 

RAW 599,149,1:NEXT i 

3849 FOR 1=499 TO 649 STEP 2:M0VE i,64:D 

RAW 600,160,1:NEXT i 

3860 RETURN 

3879 ' présentation 

3875 *************************** 

3899 GOSUB 2620 

3900 PEN 3-.L0CATE 2,4:PRINT CHR*(225)+CH 
R$(226):PEN 4:LOCATE 5,4:PRINT"VOTRE VAI 
SSEAU" 

3910 PEN 2-.L0CATE 9,8:PRINT CHR$(227)+CH 
R$ (228) +CHR$ (229): LOCATE 2, 10:PEN 1:PRIN 
T"ler VAGUE ENNEMIE" 

3929 PEN 2:LOCATE 9,13:PRINT CHR*(230)+C 
HR$(231)+CHR$(232) -.LOCATE 2,15:PEN 1:PRI 
NT"2erae VAGUE ENNEMIE" 

3930 PEN 2:L0CATE 9,18:PRINT CHR*(233)+C 
HR$(234)+CHR$(235):L0CATE 2,2ê:PEN 1:PRI 



NT u 3e«ie VAGUE ENNEMIE" 

3940 RESTORE 4585:F0R 1=1 TO 46-.READ SI, 

S2 

3943 SOUND 3,S1,0,0,4,0:SOUND 4,S2,0,0,4 

3945 NEXT I 

3950 SOUND 4,490,0,0,4,0:WINDOW #1,2,19, 

2,20:PEN 0:CLS#1:SOUND 4,400,9,9,4,9 

3969 PEN 2:L0CATE 9,8:PRINT CHR$(236)+CH 

R$ (237): LOCATE 2,19:PEN l:PRINT"4eme VA6 

UE ENNEMIE" 

3965 FOR 1=1 TO 10: SOUND 1,400,0,0,4,9 

3967 NEXT I 

3979 FOR i=9 TO 1000 STEP 2: NEXT i:PEN 

:CLS#1 

3989 LOCATE 2, 4: PEN 2:PRINT"V0TRE BUT ES 
T" 

3990 LOCATE 2,6:PRINT"DE DELIVRER LA " 
4090 LOCATE 2,8:PRINT"PLANETE 0ME6A" 
4910 LOCATE 2, 10:PRINT"MAIS SES TYRANS " 
4020 LOCATE 2,12:F'RINT"N'Y TIENNENT PAS. 



4030 LOCATE 2,15:PRINT"AUSSI DEVREZ VOUS 

I 

4040 LOCATE 2,18:PRINT"LUTTER D'UNE FACO 

N" 

4050 LOCATE 2,2ê:PEN 1:PRINT" ACHARNEE.. 

4055 RESTORE 4585:F0R 1=1 TO 46:READ SI, 
S2 

4057 SOUND 4, SI, 0,0, 4,0: SOUND 3,S2,0,0,4 

4058 NEXT I 

4959 FOR 1=1 TO 10: SOUND 1,400,0,9,4,0:N 

EXT I 

4060 CLStl 

4070 PEN 2:L0CATE 2,4:PRINT"LE 1er VAISS 

EAU" 

4080 LOCATE 2,6:PRINT"NE TIRE PAS MAIS" 

4090 LOCATE 2,8:PRINT"IL EST ACCOMPAGNE" 

4100 LOCATE 2,10:PRINT"D'UN SATELLITE" 

4110 LOCATE 2, 12:PRINT" INDESTRUCTIBLE. . . 

u 

4115 FOR 1=1 TO 23:READ S1,S2 

4117 SOUND 4, SI, 0,0, 4,0: SOUND 3,S2,0,0,4 

,0:NEXT I 

4120 CLS#1 

4130 LOCATE 2,4:PRINT"LE 2eae VAISSEAU" 

4140 LOCATE 2,6:PRINT U NE TIRE PAS MAIS" 

4150 LOCATE 2,B:PRINT"S'IL EST TOUCHE" 

4160 LOCATE 2,10:PRINT"SE TRANSFORME ??? 

M 

4170 FOR 1=1 TO 20:READ S1,S2 

4175 SOUND 4, SI, 0,0, 4,0: SOUND 2,32.0,0,4 

,« 

4177 NEXT I: CLStl 

4180 LOCATE 2,4:PRINT"LE 3erae VAISSEAU" 

419Ô LOCATE 2,6: PRINT"LUI TIRE." 

4209 LOCATE 2,8:PRINT"EN PLUS S'IL EST" 



4210 LOCATE 2,10:PRINT"TOUCHE IL SE " 
4220 LOCATE 2,12:PRINT"TRANSF0RME ???" 
4230 FOR i=0 TO 7090: NEXT i: SOUND 1,400, 
0,0, 3, 0,2: CLStl 

4240 LOCATE 2,4:PRINT"LE 4eue VAISSEAU" 
4250 LOCATE 2,6:PRINT"LUI EST PERDU" 
4260 LOCATE 2,8:PRINT"DANS UNE COURSE" 
4270 LOCATE2,10:PRINT"FOLLE..." 
4280 LOCATE 2,12:PRINT"TOUCHEZ-LE ?" 
4290 FOR i=0 TO 7009 STEP 2:NEXT i:SOUND 
3,400,0, 0,3,0,3:CLStl 
4300 LOCATE 2,4:PRINT"SI VOUS VIVEZ " 

4310 LOCATE 2, 6: PRINT" JUSQUE-LA, ALORS" 

4320 LOCATE 2,10:PEN 1: PRINT "TENTEZ LE T 

ABLEAU" 

4330 : LOCATE 7,12:PRINT"SUIVANT..." 

4340 FOR i=0 TO 7000: NEXT i: SOUND 4,400, 

0,0,3,0,3:CLStl 

4350 LOCATE 2,6:PEN 2:PRINT"SURVEILLEZ V 

OTRE" 

4360 LOCATE 2,8:PRINT"ENERGIE VOUS FEREZ 

4370 LOCATE 2,10:PRINT"LE PLEIN " 

4380 LOCATE 2,12:PRINT"DANS UN LABYRINTH 

E" 

4390 LOCATE 2, 14: PRINT "DANGEREUX ???" 

4400 FOR 1=1 TO 10000: NEXT I: SOUND 3,400 

,0,0,3,0,10 

4410 RETURN 

4500 ' ********************************** 

4502 '* * 



4503 * 



4595 '* 



MUSIQUE 



4507 *♦♦*♦♦****#*♦********************* 

4510 ENV 3,10,8,2,1,11,2,13,-1,2 

4530 ENV 4,16,15,2 

4585 'SOUND 400,0,400,0,400,9,499,0,400, 



4590 DATA 400,0,400,0,400,0,400,0,400,0, 

400,50, 400, 37, 400, 33, 400, 30, 400, 33, 4f)9, 4 

0,400,0,400,0,400,0,400,0,400,0,400,50,4 

00,37,400,33,400,30,400,33,400,0,409,0,4 

00,9,4 , 00,0,400,0,400,50,400,37, 400,33, 49 

0,30,400,33,490,40,400,0,400,0,409,0,400 

,0,400,0,400,40 

4600 DATA 400,37,400,40,4045,59,490,50,40 
9, 9, 409, 0, 400, 0, 400, 0, 400,0, 400. 59,400, 5 
3, 400, 60, 400,66,409, 53, 400, 66, 409, 69, 409 
, 74, 499, 66, 499, 9, 499, 9, 400, 0, 400, 0, 490, 5 
9, 499, 53, 400, 60, 400, 66, 400, 66, 490,0, 499, 
, 400 , 9 , 409 , 59 , 400 , 53 , 490 , 69 , 499 ,• 66 
4619 DATA 490,53,400,66,400,69,490,74,40 
9, 66, 400, 0, 400, 490, 9, 400, 80, 409, 74,400,8 

, 400 , 1 00 , 400 , 1 00 , 400 , , 400 , , 400 , , 400 , 
0,400,0 

4650 RETURN 
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Educatif 



HISTOIRE DE FRANCE 



Michel KADEYAN 



Ce programme d'Histoire qui couvre une période relativement 
longue (de Clovis à Louis-Philippe) va vous permettre de tes- 
ter vos connaissances concernant les souverains qui ont régné 
sur la France. 




— ^~— ' . 



.154 
1986 



768 

814 

840 

877 

879 

88E 

884 

888 

898 

-983 

-983 

-938 

-954 

-988 

-987 



PEPIN -LE -BREF 

CHARLEMAGNE 

LOUIS I, LE DEBONNAIRE 

CHARLES II, LE CHAUME 

LOUIS II, LE BEGUE 

LOUIS lit 

CARLOMAN 

CHARLES II 

EUDES (CAPETIEN > 

CHARLES III. LE SIMPLE 

ROBERT I (CAPETIEN > 

RAOUL (CAPETIEN) 

LOUIS IU, D'OUTBJE-MER 

LOTHAIRE 

LOUIS U, LE FAINEANT 




Par le menu, vous aurez accès à l'un 
des 3 questionnaires et, si vos résultats 
s'avèrent trop décevants, une qua- 
trième option vous donnera l'occasion 
de réviser (ou d'apprendre...). 

Note : 

Le programme accepte les réponses en 



majuscules ou en minuscules et le 

numéro associé au nom d'un roi peut 

être entré indifféremment en chiffres 

romains ou arabes. 

Exemple : LOUIS XIII ou louis 13. 

Enfin, le numéro n'est pas obligatoire 

lorsqu'il s'agit du 1 er roi portant ce 

nom. 

Exemple : Clovis I ou CLOVIS. 



Liste des variables : 



MENU$ 
MENU2$ 



Réponses aux menus 



D$ 
Nb 
Dates 

N1$ 
N2$ 
N3$ 



Nom de la dynastie 

Nombre de souverains de la dynastie 

Dates de début et de fin de règne 



Nom du souverain (différentes possibilités d'écriture) 



S$ Surnom du souverain 

Rep$ Réponse 
Score Score - 
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HISTOIRE DE FRANCE 



1Ô REM******************************* 

20 REM* 

30 REM* 

40 REM* 

50 REM* par Michel KADEYAN 

60 REM* NOVEMBRE 1986 * 

70 REM******************************* 

80 GOSUB 62000 

100 REM******MISE EN PAGE********* 

110 ;M0DE 1: BORDER 1 

120 WINDOWS, 1,40,6,24 

130 WINDOWtl.6,35,1,2 

140 WINDQW#2, 1,5,1,5 

150 WINDOWi3,36,40,l,5 

160 WIND0W#4, 6,35,3,5 

170 WINDOWtS, 1,40,25,25 

175 :INK 0,0: INK 1, 13: INK 2,3: INK 3,1 

180 PAPER#0,1:PAPER# 1,1: PAPER #2,1: PAPER 

#3,1:PAPER#4,1:PAPER#5,1 
190 CLSI0: CLStl : CLS#2: CLS#3: CLS#4: CLSI5 
200 PEN#2,3:PEN#3,3 

210 LQCATE#1,1,2:PEN#1,2:PRINT#1," H 
ISTOIRE DE FRANCE" 
300 GOSUB 60000 

500 REM#**********MENU************ 
510 CLS#0: CLS#4: CLS#5: SCORE=0 
520 LOCATE #4, 1,3:PEN#4,2:PRINT#4. " 

MENU 
530 LOCATE 3,2:PEN 0:PRI NT "CHRONOLOGIE D 

ES SOUVERAINS -.1" 

540 LOCATE 3,5:PRINT"ASS0CIATI0N REGNE / 

SOUVERAIN.... 2" 

550 LOCATE 3,8:PRINT "ASSOCIATION SOUVER 
AIN / SURNOM... 3" 
560 LOCATE 3,11:PRINT "LISTE DES SOUVERA 

INS 4" 

570 LOCATE 3,14:PRINT "F I N 

5" 

580 LOCATE 11, 17:PRINT"ENTREZ VOTRE CHOI 



X" 

599 MENU*=INKEY*: IF MENU*="" THEN 596 

(M MENU=VAL(MENU*):IF MENU<1 OR MENU>5 

THEN 590 

610 ON MENU GOTO 700,1500,2000,3000,4500 



700 REM********SOUS-MENU*********** 

710 CL3 

720 LOCATE 3,2:PRINT"MER0VINGIENS 

1" 

730 LOCATE 3,5:PRINT"CAR0LINGIENS (dt 3 

CAPETIENS)... 2" 

740 LOCATE 3,8:PRINT"CAPETIENS 

750 LOCATE 3,11:PRINT"VAL0IS - ORLEANS.. 
4" 

760 LOCATE 3, 14: PRINT "BOURBONS - EMPIRE 

- ORLEANS 5" 

770 LOCATE 11,17:PRINT"ENTREZ VOTRE CHOI 
X" 

780 MENU2*=INKEYt:IF MENU2*="" THEN 780 
790 MENU2=VAL(MENU2*):1F MENU2U OR MENU 
2>5 THEN 786 

800 ON MENU2 GOSUB 810,820,830,840,850 
805 GOTO 1000 

810 RESTORE 50010:D*=" MEROVINGI 
ENS":NB=18:RETURN 

820 RESTORE 50190: D*="CAROLINGIENS (dt 3 
CAPETIENS) ":NB=15:RETURN 
830. RESTORE 50340: D*=" CAPETIEN 
S":NB=15:RETURN 

840 RESTORE 50490: D*=" VAL0I5-QRL 
EANS":NB=13:RETURN 

850 RESTORE 50620: D$=" BOURBONS-EMPIRE 
-ORLEANS" :NB=10:RETURN 
885 :END 

1000 REM*******CHRQNOLOGIE******** 
1010 CLS:CLS#4 

1020 LQCATEt4,l,2:PEN 2:PRINT»4,D* 
1030 FOR 1=1 TO NB:READ DATE*,N1*,N2*,N3 
*,S* 

1040 IF 1=1 THEN A$="FONDATEUR :" ELSE A 
*="SUCCESSEUR: " 

1050 PEN 0: LOCATE 1,1: PRINT A* 
1060 LOCATE 13,I:LINE INPUT REP* 
1070 REP*=UPPER*(REP«) 
1080 IF REP$="" OR REP*ONl* AND REP* ON 
2$ AND REP*ON3* THEN GOSUB 40000 ELSE G 
OSUB 40500 
1090 NEXT I 

1100 L0CATE#5,12,1:PEN#5,2:PRINT#5,"SC0R 
E :";SCQRE;" sur ";NB; 
1110 SOUND 1,239,12,12: FOR T=l TO 3000: 
NEXT T 

1120 GOTO 500 

1500 REM**ASSOCIATION REGNE/SOUVERAIN»* 
1510 CLS:CLS#4 

1520 L0CATE#4, 1,2: PRINT#4, " ASS0CIAT10 
N REGNE/SOUVERAIN" 



1530 FOR 1=1 TO 10 

1540 RANDQMIZE TIME:X=INT(RND*(71) )+l 

1542 X(I)=X 

1544 FOR T=l TO T-l 

1546 IF X(I)=X(T) THEN 1540 

1548 NEXT T 

1550 RESTORE 50000: FOR 2=1 TO :<:READ DAT 

E$,N1$,N2*,N3*,S*:NEXT z 

1560 PEN 0: LOCATE 1,I:PRINT DATE*;TAB(10 

\ ■ « ■ H 

1570 LOCATE i3,I:LINE INPUT REP*:REP*=UP 
PER$(REP*) 

1580 IF REP*="" OR REP*ONl* AND REPJON 
2* AND REP*ON3* THEN GOSUB 40000 ELSE G 
OSUB 40500 
1590 NEXT I 

1600 LOCATE #5,15,1:PEN#5,2:PRINT#5,"SC0 
RE :";SCORE;" sur 10"; 
1610 SOUND 1,237, 12, 12: FOR T=l TO 3000: N 
EXT T 

1620 GOTO 500 

2000 REM**ASSOCIATION SOUVERAIN/SURNOM*» 
2010 CLS:CLS#4 

2020 L0CATE#4,1,2:PRINT#4," ASSOCIATION 
SOUVERAIN/SURNOM" 
2030 FOR 1=1 TO 10 

2040 RANDOMIZE TIME:X=INT(RND*(52))+19 
2042 X(I)=X 
2044 FOR T=l TO 1-1 
2046 IF X(I)=X(T) THEN 2040 
2048 NEXT T 

2050 RESTORE 50000: FOR Z=l TO X:READ DAT 
E*,N1*,N2*,N3*,S*:NEXT Z 
2060 IF S*="" THEN 2040 
2070 LOCATE 1,1: PEN 0: PRINT NI*;" :" 
2080 LOCATE 20,I:LINE INPUT REP*:REP*=UP 
PER*(REP*) 

2090 IF REP*="" OR REPJOS* THEN GOSUB 4 
0000 ELSE GOSUB 40500 
2100 NEXT I 

2110 L0CATE#5,21,1:PEN#5,2:PRINT#5,"SC0R 
E :"; SCORE;" sur 10" 

2120 SOUND 1,237, 12, 12: FOR T=l TO 3000 :N 
EXT T 

2130 GOTO 500 

3000 REM****LISTE DES SOUVERAINS*** 
3010 d=0: GOSUB 810 
3020 CLS:CLS#4:CLS#5 
3030 L0CATE#4,1,2:PRINT#4,D* 
3040 FOR 1=1 TO NB:READ date*,nl*,n2*,n3 
$,s* 

3050 IF S*<>"" THEN GOTO 3070 
3060 LOCATE 1,1: PEN 0: PRINT DATE*;TAB(10 
);":";TAB(12);N1*:G0T0 3080 
3070 LOCATE 1,1: PEN 0: PRINT DATE$;TAB(10 
);":";TAB(12);N1*;\ ";S* 
3080 NEXT I 

3090 L0CATE#5, 10, 1:PEN#5,2:PRINT#5, "APPU 
YEZ SUR UNE TOUCHE" 



3100 T*=INKEY*:IF T*="" THEN 3100 

3110 d=d+l 

3120 IF d=5 GOTO 500 

3130 ON d GOSUB 820,830,840,850 

3140 GOTO 3020 

3150 GOTO 500 

40000 REM******* REPONSE FAUSSE ******* 

40010 FOR K=l TO 10: SOUND 1,1000,12,12: 

BORDER 6:F0R Kl=l TO 50:NEXT Kl: BORDER 2 

4: NEXT K: BORDER 1 

40020 ON MENU GOTO 40100,40100,40200 

40100 LOCATE 13,I:PRINT SP ACE* (28): PEN 2 

:LOCATE 13,1: PRINT N1*:L0CATE 39,I:PRINT 

"0":RETURN 

40200 LOCATE 20,1: PRINT SPACEt(21):PEN 2 

:LOCATE 20,I:PRINT S*:LOCATE 39,1: PRINT" 

0":RETURN 

40500 REM******** REPONSE JUSTE ******* 

40510 FOR K=l TO 5:S0UND 1,237, 12, 12: NEX 

T K: LOCATE 39,1: PEN 2: PRINT "1":SC0RE=SC 

0RE+1:RETURN 

45000 REM********** F I N ************ 

45010 END 

50000 REM ***** LISTE DES DATAS **** 

50010 DATA 481-511, CLOVIS I, CLOVIS 1,CL0 

VIS, 

50020 DATA 51 1-558, CHILDEBERT I,CHILDEBE 

RT 1, CHILDEBERT, 

50030 DATA 558-561, CLOTAIRE I,CLOTAIRE 1 

,CLOTAIRE, 

50040 DATA 561-567, CARIBERT I,CARIBERT 1 

,CARIBERT, 

50050 DATA 567-584, CHILPERIC I,CHILPERIC 

1,CHILPERIC, 
50060 DATA 584-628, CLOTAIRE II, CLOTAIRE 

2,, 

50070 DATA 628-638, DAGOBERT I , DAGQBERT 1 

.DAGOBERT, 

50080 DATA 638-656, CLOVIS II, CLOVIS 2,, 

50090 DATA 656-670, CLOTAIRE III, CLOTAIRE 

3,, 
50100 DATA 670-673, CHILDERIC II,CHILDERI 

C 2 

50110 DATA 673-691, THIERRY I, THIERRY 1,T 

HIERRY, 

50120 DATA 691-695, CLOVIS III, CLOVIS 3,, 

50130 DATA 695-711, CHILDEBERT III,CHILDE 

BERT 3, , 

50140 DATA 71 1-715, DA60BERT II, DAGOBERT 

2,, 

50150 DATA 717-719, CLOTAIRE IV, CLOTAIRE 

♦n 

50160 DATA 715-720,CHILPERIC II,CHILPERI 

C 2 

50170 DATA 720-737, THIERRY II, THIERRY 2, 

50180 DATA 742-752, CHILPERIC III,CHILPER 

IC 3,. 

50190 DATA 752-768, PEPIN-LE-BREF, PEPIN L 
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E BREF, PEPIN, 

502W DATA 768-814, CHARLEMAGNE, CHARLES 1 

, CHARLES 1, 

50210 DATA 814-840,LOUIS I, LOUIS 1, LOUIS 

,LE DEBONNAIRE 

50220 DATA 840-877, CHARLES II, CHARLES 2, 

,LE CHAUVE 

50230 DATA 877-879,L0UIS II, LOUIS 2,, LE 

BEGUE 

50249 DATA 879-882,L0UIS III, LOUIS 3,, 

50250 DATA 882-884, CARLOMAN,,, 

50260 DATA 884-888, CHARLES II, CHARLES 2, 

50270 DATA 888-898,EUDES (CAPETIEN), EUDE 

S I, EUDES, 

50280 DATA 898-922, CHARLES III, CHARLES 3 

,,LE SIMPLE 

50290 DATA 922-923, ROBERT I (CAPETIEN), R 

OBERT I, ROBERT, 

50300 DATA 923-936,RA0UL (CAPETIEN),RAOU 

L I, RAOUL, 

50310 DATA 936-954, LOUIS IV,LOUIS 4,,D'0 

UTRE-MER 

50320 DATA 954-986, LOTHA IRE,,, 

5033» DATA 986-987,L0UI5 V,LOUIS 5,, LE F 

AINEANT 

5034Ô DATA 987-996, HUGUES CAPET,,, 

50350 DATA 996-1031, ROBERT II, ROBERT -2,, 

50360 DATA 1031-1060,HENRI I, HENRI 1,HEN 

RI, 

50370 DATA 1060-1108,PHILIPPE I, PHILIPPE 

1, PHILIPPE, 

50380 DATA 1108-1137,LOUIS VI, LOUIS 6,,L 
E GROS 

50390 DATA 1137-1 180, LOUIS VII, LOUIS 7,, 
LE JEUNE 

50400 DATA 1180-1223,PHILIPPE II,PHILIPP 
E 2,, AUGUSTE 

50410 DATA 1223-1226,L0UIS VIII, LOUIS 8, 
,LE LION 

50420 DATA 1226-1270,LOUIS IX, LOUIS 9,, S 
AINT LOUIS 

50430 DATA 1270-1285,PHILIPPE III, PHILIP 
PE 3,, LE HARDI 
50440 DATA 1285-1314,PHILIPPE IV,PHILIPP 
E 4,, LE BEL 

50450 DATA 1314-1316, LOUIS X, LOUIS 10,, L 
E HUTIN 

50460 DATA 1316,JEAN I,JEAN 1,JEAN,LE PO 
STHUME 
50470 DATA 1316-1322, PHILIPPE V, PHILIPPE 

5,, LE LONG 

50480 DATA 1322-1328, CHARLES IV, CHARLES 
4,, LE BEL 

50490 DATA 1328-1350, PHILIPPE VI,PHILIPP 
E6,, 

50500 DATA 1350-1364, JEAN II, JEAN 2,, LE 
BON 
50510 DATA 1364-1380,CHARLES V,CHARLES 5 
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-,,LE SAGE 

50520 DATA 1380-1422, CHARLES VI, CHARLES 
6,, LE FOL 
50530 DATA 1422- 1461, CHARLES VII, CHARLES 

7,, LE VICTORIEUX 

50540 DATA 1461-1483,L0UIS XI, LOUIS 11,, 
50550 DATA 1483- 1498, CHARLES VIII,CHARLE 
SB,, 

50560 DATA 1498-1515,L0UIS XII, LOUIS 12, 
, LE PERE DU PEUPLE 
50570 DATA 1515-1547, FRANÇOIS I, FRANÇOIS 

1, FRANÇOIS, 
50580 DATA 1547-1559, HENRI II, HENRI 2,, 
50590 DATA 1559-1560, FRANÇOIS II.FRANCOI 
S 2,, 
50600 DATA 1560-1574, CHARLES IX, CHARLES 

■?,, 

50610 DATA 1574-1589, HENRI III, HENRI 3,, 

50620 DATA 1589-1610,HENRI IV,HENRI 4,,L 

E GRAND 

50630 DATA 1610-1643,LOUIS XIII, LOUIS 13 

,,LE JUSTE 

50640 DATA 1643-1715,L0UIS XIV.LOUIS 14, 

,LE ROI SOLEIL 

50650 DATA 1715-1774, LOUIS XV,LOUIS 15,, 

LE BIEN AIME 

50660 DATA 1774-1793,L0UIS XVI, LOUIS 16, 

i 

50670 DATA 1793-1795, LOUIS XVII, LOUIS 17 

50680 DATA 1804- 1814, NAPOLEON I, NAPOLEON 

1, NAPOLEON, 
50690 DATA 1814-1824, LOUIS XVIII, LOUIS 1 
8,, LE DESIRE 
50700 DATA 1824-1830, CHARLES X, CHARLES 1 

50710 DATA 1830-1848,LOUIS-PHILIPPE I,LO 

UIS-PHILIPPE 1, LOUIS-PHILIPPE, 

60000 REM»*»* DESSIN FLEUR DE LYS **** 

60010 SYMBOL AFTER 220 

60020 SYMBOL 220,0,16,56,60,126,126,255, 

255 

60030 SYMBOL 221,0,0,0,0,0,0,1,7 

60040 SYMBOL 222,1,3,3,3,7,7,199,231 

60050 SYMBOL 223,255,255,255,255,255,255 

,255,255 

60060 SYMBOL 224,128,192,192,192,224,224 

,227,231 

60070 SYMBOL 225,0,0,0,0,0,0,128,224 

60080 SYMBOL 226,15,31,31,63,63,126,96,6 

4 

60090 SYMBOL 227,231,243,251,251,249,124 

,60,30 

60100 SYMBOL 228,255,255,255,255,255,255 

,255,190 

60110 SYMBOL 229,231,207,223,223,159,62, 

60, 120 

60120 SYMBOL 230,240,248,248,252,124,126 

,6,2 



60130 SYMBOL 231, 14, 15, 15, 15, 15, 14, 14.2B 

60140 SYMBOL 232,126,126,255,255,255,255 

,255,255 

60150 SYMBOL 233,112,240,240,240,240,112 

,112,56 

60160 SYMBOL 234,249,249,243,115,7,7,0,0 

60170 SYMBOL 235,255,255,255,255,255,255 

,0,0 

60180 SYMBOL 236,159,159,207,206,224,224 

,0,0 

61000 'DESSIN 

61010 LOCATE#2, 1, 1:PRINT#2,CHR*(32) ;CHR$ 

(32!;CHR*(220);CHR$(32);CHR$(32) 

61020 LOCATE#2, 1 , 2: PRINT#2, CHR$ (221 ) ; CHR 

$(222);CHR*(223);CHR$Ï224>;CHR$(225) 

61Ô30 LOCATE#2, 1 , 3: PRINT#2, CHR$ (226) ; CHR 

$(227);CHR$(228);CHR$(229i;CHR$(230) 

61040 LOCATE#2,l,4:PRINT#2,CHR$(32);CHR$ 

(231);CHR$(232);CHR*(233);CHR$(32) 

61050 L0CATE#2,1,5:PRINT#2,CHR*(32);CHR$ 

(234);CHR$(235);CHR$(236);CHR$(32); 

61060 L0CATEI3, 1, 1:PRINT#3, CHR$ (32) ;CHR$ 

(32);CHR$(220);CHR$(32);CHR$(32) 

61070 L0CATE#3, 1 , 2: PRINT#3, CHR$ (221 ) ; CHR 

$(222);CHR$(223);CHR$(224);CHR*(225) 

61080 L0CATEI3, 1,3: PRINT#3, CHR* (226) ; CHR 

$<227);CHR$(228);CHR*(229i;CHR*(230) 

61090 LOCATEI3, 1,4:PRINT#3,CHR*(32) ;CHR$ 

(231);CHR*(232);CHR*(233);CHR$(32) 

61100 L0CATE#3,1,5:PRINT#3,CHR$(32);CHR* 

(234) ;CHR$(235) ;CHR$(236) ;CHR*(32) ; 

61110 RETURN 

62000 REM******PRESENTATION*********** 

62010 MODE 0:INK 0,20:INK 1,2: INK 2,6:IN 

K 3,4 

62020 PAPER 0: BORDER 11 

62030 PEN l:LOCATE 7,6:PRINT"HIST0IRE" 

62040 LOCATE 10,9:PRINT"DE" 

62050 LOCATE 8,12:PRINT"FRANCE" 

62060 PEN 2:L0CATE 6, 15:PRINT" (481-1848) 

■ 

62070 PEN 3:L0CATE 2,23:PRINT"par Michel 
KADEYAN"; 

63000 REM********MUS I QUE*************** 
63010 .RESTORE 64000:FOR T=l TO 53 
63020 READ NO, DU 
63930 SOUND 1, NO, DU/2 
63040 NEXT T 

64000 DATA 190,30,169,30,159,30,169,30,1 
90,30,0,30,127,30,0,30,127,30,0,30,142,3 
0,0,30,159,60,169,60,190,30,169,30,159,3 
0,142,30,127,30,0,30,95,30,0,30,100,60,9 
5,60,84,120,8,60 

64010 DATA 190,30,169,30,159,30,169,30,1 
90,30,0,30,127,30,0,30,127,30,0,30,142,3 
0,0,30,159,60,169,60,190,30,169,30,159,3 
0,142,30,127,30,0,30,95,30,0,30,100,30,9 
5,30,84,30,100,30,95,120 
64020 FOR T=l TO 15Ô0:NEXT T: RETURN 



GASTON 



Jeux 




James Bond 007, vous connais- 
sez ? L'espion au service de sa 
Majesté est bien sûr aussi célèbre 
que Margaret Thatcher. Mais en 
France, nous avons Gaston l'agent 
de la DST et celui-ci est aussi très 
efficace. 

Sa mission : découvrir les messages 
codés envoyés par des espions à la 
solde d'une puissance étrangère. 
Le lieu : un immeuble truffé de télépho- 
nes et d'ascenseurs. 
Les messages secrets se trouvent en 
clair dans le programme, alors ne tri- 
chez pas : tapez le listing les yeux fer- 
més ! 



* ♦ 

* GASTON Y A L TELEFON QUI SON * 

* * 
20 ■* gilles GUIGON MARS 1987 ♦ 

* * 

* pour CPC 464 * 

* * 
#***♦♦*****♦*♦*»♦****#*■»#**»♦♦**♦** 

30 ON BREAK GOSUB 7740 

40 SPEED KEY 10,7 

50 SYMBOL AFTER 32 

t>0 MODE « 

70 LOCATE 2.7:PRINT"P A T I E N T E Z" 

80 LOCATE 4,13:PRINT". S . V . P ." 

90 FOR 1=1 TO 2000: NEXT 

100 GOTO 2960: REM mise en paqe 

1 ) • t********************************** 

* * 

* REDEFINITION DE GASTON * 

* * 

Hi mumHHIIHHHH HH H H H 

120 SYMBOL 196,60,126,231,219,219,60,126 

,126:' téléphone 

130 SYMBOL 65,0,0,0,0,0,0,0.0: ettace 



140 '♦♦*♦**♦********«♦#******♦**♦**♦**** 

* * 

* bonhomme marche vers la droite * 

* * 
*********************************** 

150 SYMBOL 66,60,126,60,52,62,60,24,60 

160 SYMBOL 67,126,126,247,251.60,118,110 

,119 

170 SYMBOL 68,0,128,0,0,128,0,0,0 

180 SYMBOL 69,128,128,128,128,0,0,0,0 

190 SYMBOL 70,15,31,15,13,15,15,6,15 

2O0 SYMBOL 71,27,27,27,29,15,6,6,7 

210 SYMBOL '72, 192,224, 192,64,224, 192, 128 

,192 

220 SYMBOL 73,224.224.112,176,192,96,224 

,112 

230 SYMBOL [74, 3, 7, 3, 3, 3. 3, 1,3 

240 SYMBOL 75,7,7,15,15,3.7,5,7 

250 SYMBOL 76,240,248,240,208.248.240,96 

,240 

260 SYMBOL 77,248.252.254,246.248,218.14 

,140 

270 Symbol 78,0.1.0,0,0,0,0,0 

280 SYMBOL 79, 1,3,7. 6.0. 1.3.3 

290 ' *********************************** 

* * 

* bonhomme marche vers la gauche * 

* * 
♦**♦*♦****♦*********♦**♦»******+■»** 

3O0 SYMBOL 80 , 60 , 1 26 , 60 , 44 , 1 24 , 60 , 24 , 60 
310 SYMBOL 81,126,126,239,223,60,110,118 
,238 

320 SYMBOL 82,240,248,240,176.240.240.96 
,240 

330 SYMBOL 83,216,216,216,184.240,96,96, 
224 

340 SYMBOL 84,0,1,0,0,0,0,0,0 
350 SYMBOL 85,1,1,1, 1.0.0, M 
360 SYMBOL 86,192.224,192,192,192,192.12 
8,192 

370 SYMBOL 87,224.224,240.240, 1 "2, 224. 96 
9?i 



380 SYMBOL 88,3,7,3,2,7,3.1,3 

390 SYMBOL 89.7,7,14.13,3.6,7,14 

400 SYMBOL 90,0,128,0,0,0,0,0,0 

410 SYMBOL 91,128,192,224,0,0,128,192,19 

420 SYMBOL 92, 15,31, 15, 11,31, 15,6,15 
430 SYMBOL 93,31,63,127,111,31,91,112.49 
440 DIM d$(4,2),g*(4,2) 
450 d* ( 1 , 1) =CHR* (66) +CHR$ (65) : d$ < 1 , 2) =CH 
R$(67!+CHR$(.65i 

460 d$(2,l)=CHR*(70i+CHR$(68):d$(2,2;=CH 
R$i71)+CHR$(69) 

470 dt(3,l)=CHR$(74)+CHR$(72):d*(3,2)=CH 
R$(75!+CHR$(73) 

480 d$i4,l)=CHR$;78)+CHR$(76):d$i4,2)=CH 
R$(79)+CHR$<77) 

490 q$ ( 1 , 1 j =CHR* (65) +CHR* ( 80) : 3$ ( 1 , 2) =CH 
R$S65)+CHR$i81i 

500 q$ (2, 1 ) =CHR$ (84 1 +CHR* (82) : 9$ (2, 2) =CH 
R$;85)+CHR$(83) 

510 q* ( 3 , 1 1 =CHR$ ( 88 ) +CHR* ( 86 ; : q* ( 3 . 2 i =CH 
R$i89)+CHR$i.87: 

520 g$ (4, 1 ) =CHR$ (92.1 +CHP* (90) : 9$ i.4, 2.' =CH 
R$i93)+CHR$(91) 

530 *********************************** 
+ * 

* présentation * 

* * 

**>*****♦*♦****+■*♦***♦*****♦**+**♦♦ 

540 BORDER 1:INK 15,11:1» 14, 12: INK 13. 
23: INK 12, 14: INK 11,1: INK 10, 15: INK 9,24 
,0:INK 8.0,6: INK 7,9: INK 0, 15: INK 5. 6: IN 
K 2, 18: INK 1,26: INK 0,0 
550 WINDOW#0. 1.20. 1,26 
560 TEXTÎ="PHRASE CACHEE" :TX=2:TY=21:PEN 
5: GOSUB 4730 
570 WINDOW#0,2,13,11,17 
580 TEXTE*="P POUR REGLE DU JEU 

J POUR JOUER " 
590 TX=l:Tf=l:FEN 2.-G0SUB 4640 
600 WHILE INKEY$0"":tfEND:CALL &BB06 
610 que$=INKEY$:IF que*=" i! THEN 610 
620 IF que*="J" OR que*="j" THEN 5QT0 96 
1) 

630 ILS 

640 WINDOWS. 1,20.7. 19 
650 text$="REGLE5 DU JEU": TX=4: TY=2: PEN 
2: GOSUB 4730 

ù60 TEXT$="ENFÛNCEZ UNE TOUCHE": PEN 4:TX 
=3:TY=13:GÛSUB 4730 
670 WINDOW#0,2. 13, 11,17 
680 TEXTE$="EXPLICATION DES TABLEAUX" 
690 TX=1:TY=4:PEN 5:G0SUB 4ù4û: GOSUB 776 



700 TEXTE$="VOUS REMARQUEZ A DROITE DOUZ 
E LIGNES DE QUATRE RANGEES C EST LE 
PLANDE L IMMEUBLE CHAQUE DESSI 
N REPRE5ENTEUNE DES TROIS VARIETES DE P 
IECES" 
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716 TX=l:TY=i:PEN 3.-G0SUB 4640:6OSUB 776 



726 TEXTE$="EXEMPLES PIEC 

ES SANS ASCENSEUR 

PIECES AVEC ASCENSEUR MONTANT 

PIECES AVEC ASCENSEUR DESC 
ENDANT" 

73Ô TX=l:TY=l:GOSUB 4640 
740 LOCATE 8,3:PEN 6.-PRINT CHR$(135); 
750 LOCATE 8,5:PRINT CHR$(123) 
760 LOCATE &,7:PRINT CHR*(126):60SUB 776 



770 TEXTE$="LE CADRE MARQUE AVEC CONTI 
ENDRA LE NOMBRE DE VIES A VOTRE ACTIF 

LE CADRE AU DESSUS SE PASSE DE COMM 
ENTAIRES LE CADRE DU BAS C9NTIENTLA PH 
RASE A DECOUVRIR" 

780 TX=1:TY=1:PEN 3:60SUB 4640:GOSUB 776 


790 TEXTE$=" DEROULEMENT DU JEU" 
8O0 TX=1:TY=4:PEN 6:80SUB 4640:GOSUB 776 


810 TEXTE$="VOUS ETES 6AST0N LESPIONAGEN 
T DE LA DST DES INFORMATIONS SOR 
TENTDE FRANCE GRACE A UNE TAUPE ET VOU 
S DEVEZ INTERCEPTER CES FUITES" 
820 TX=1:TY=1:PEN 3:G0SUB 4640:GOSUB 776 



830 TEXTE$="COMME LES ESPIONS SONT DES 
GENS MEFIANTS ILS NETRANSMETTENT LES DOC 
S QUE LETTRE PAR LETTRE ETJAMAIS DEUX 
FOIS AU MEME TELEFON" 
840 TX=1:TY=1:PEN 3:G0SUB 4640:GOSUB 776 



850 TEXTE$="VOUS DEVEZ DONC ALLER D UN 
TELEFON A L AUTRE POUR VOUS SITUER DAN 
S LEPLAN SUIVEZ LE POINT BLANC LES 
POINTS VERTSVOUS SERVIRONT AUSSI" 
860 TX=1:TY=1:PEN 3:G0SUB 4640:GOSUB 776 


870 TEXTE*=" QUELQUES CONSEILS" 
880 TX=2:TY=4:PEN 6:G0SUB 4640:GOSUB 776 



890 TEXTE$="POUR VOUS DEPLACER UTIL 

ISEZ LES FLECHES DU CURSEUR DROITE ET GA 

UCHEET COPY POUR SAUTER POUR REPONDR 

E AU TELEFONIL FAUT VOUS PLACER DESS 

US ET LE BIP SARRETE" 

900 TX=1:TY=1:PEN 3:G0SUB 4640:GOSUB 776 



910 TEXTE$="MORMALEMENT UNE LETTRE IRA 

S AFFICHER DANS LE CADRE DU BAS SAUF S 

IL S AGIT D UN ESPACE" 
920 TX=1:TY=1:PEN 3: GOSUB 4640:GOSUB 776 



930 TEXTE*="SI VOUS VOULEZ ALLER A LA P 
IECE VOISINE ET QUUNASCENSEUR VOUS OBLIG 
E A MONTER OU A DESCENDRE SAUTEZ POUR 
L EVITER ENENFONCANT LA TOUCHE COPYAVEC 
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LA FLECHE DIRECTION" 

940 TX=f:TY=l:PEN 3:GOSUB 464«: GOSUB 776 
6 
950 ' **♦*♦***#»**♦♦*♦♦***♦*♦♦***♦**♦♦*♦ 

* * 

* FIN DE LA PRESENTATION * 

* * 
********************************** 

960 EVERY 100, 1 60SUB 7490 
970 REM 
980 PEN #4, 1 
990 INK 1,26 

000 PRINT#4,STRING$(4,66); 

610 PRINT#4,STRING$(4,67); 

020 FOR cam=0 TO 3 

O30 ;<can(ca«i)=0 

040 ycam{cam)=-10 

050 NEXT cam 

060 vies=5 

070 NINDOWW, 1,14,7, 19: CLS 

080 gpa=6:gpo=2 

090 a=526:b=84 

100 ORIGIN 1,129 

110 x=XPOS:y=YPOS 

120 PRINT CHR$(22)+CHR$(0); 

130 CLS: PRINT CHR$<23>+CHR*(0); 

140 tenpsMW 

150 PLOT 144,246, 12: DRAWR 252,0 

160 ON gaston(gpa,gpo) GOSUB 5570,5610, 
5650,5690,5730,5770,5810,5860,6010,6050, 
6200, 6240, 4916, 5270, 5370,5470 

170 PEN 1 

180 n=l 

190 SPEED KEY 1,1 

200 PRINT CHR$(23)+CHR$(1); 

210 TAG 

220 x=x+32:y=y+16 

230 d=l: 

240 GOSUB 1890 

250 '*♦♦«»«♦*«♦»««**♦***♦*##♦♦♦**♦* 

* « 

* BOUCLE DEPLACEMENTS « 

* ♦ 
*«**t*t**t****t*****t****t******** 

1260 te=0 

1270 IF tia=0 AND tiaes=200 THEN GOTO 71 

00 

1280 IF condi=l THEN GOSUB 1940:GOTO 242 


1290 IF INKEY(9)=0 THEN GOTO i960 
1300 IF INKEY<8)=0 THEN GOTO 1610 
1310 IF INKEY(1)=0 THEN GOTO 1330 
1320 60T0 1270 

1330 ' *♦*****#«*********♦*»*#**♦«*****♦» 
t * 

* GASTON MARCHE VERS LA DROITE * 

* * 

**«***»*4«*»*tl******************* 

1340 ' 



1350 IF nt(gpa,gpo)=l THEN INK 8,6:h=REM 

AIN(0) 

1360 IF x<376 THEN GOTO 1430 

1370 IF NOT igaston(gpa,gpo)>3 AND gasto 

n(gpa,gpo)<13) THEN GOTO 1410 

1380 IF y=U2 THEN GOSUB 1890:b=b-8:y=l: 

x=328:60T0 1220 

1390 IF gpa=12 THEN GOSUB 1890: GOTO 2670 

1400 GOSUB 1890:gpa=gpa+l:b=b-8:y=96:x=3 

28: TAGOFF: GOSUB 6280: GOTO 1130 

1410 IF gpo=4 THEN GOSUB 1890: GOTO 2670 

1420 GOSUB 1890:gpo=gpo+l:a=a+32:x=l:y=y 

-16: TAGOFF: GOSUB 6280: GOTO 1130 

1430 IF y<112 THEN 60T0 1500 

1440 IF tex=12 THEN 1490 

1450 IF TEST(x+30+(n»10),y-12K>8 OR nt( 

gpa,gpo) THEN 1490 

1460 nt(gpa,gpo)=l:60SUB 6700 

1470 INK 8,6 

1480 tel=ASC(nt$(gpa,gpo))-32 

1490 IF TEST(x+30+(N*5),y-36)=0 THEN SOS 

UB 1890: GOTO 2400 ELSE 1560 

1500 IF x<300 AND TEST(x+60,y)<>0 THEN G 

OSUB 1890: GOTO 1590 

1510 IF tex=6 THEN 1560 

1520 IF TEST(x+30+(n»10),y-12)<>8 OR nt( 

gpa,gpo) THEN 1560 

1530 tel=ASC(nt$(gpa,gpo))-32 

1540 nt(gpa,gpo)=l: GOSUB 6700 

1550 INK 8,6 

1560 GOSUB 1890 

1570 N=N+1:IF N=5 THEN N=l:x=x+24 

1580 D=l:X=X+8 

1590 GOSUB 1890 

1600 GOTO 1270 

1610 '«»*«****»«*********♦*********»* 

* * 

* 6AST0N MARCHE VERS LA GAUCHE * 

* * 

««««#*#*♦#♦♦«*♦*♦♦****♦*♦♦**♦ 

1620 ' 

1630 IF nt(gpa,gpo)=l THEN INK 8,6:h=REM 

AIN(0) 

1640 IF x>16 THEN GOTO 1710 

1650 IF N0T((gastan(gpa,gpo)<4) OR (gast 

on(gpa,gpo)>6 AND gaston(gpa,gpo)<13)) T 

HEN GOTO 1690 

1660 IF y<112 THEN GOSUB 1890:b=b+B:y=96 

:x=l:G0T0 1220 

1670 IF gpa=l THEN 60SUB 1890: GOTO 2670 

1680 GOSUB 1890:gpa^gpa-l:b=b+8:y=l:x=l: 

TAGOFF: GOSUB 6280: 60T0 1130 

1690 IF gpo=l THEN GOSUB 1890: GOTO 2670 

1700 60SUB 1890:gpo=gpo-l:a=a-32:y=y-16: 

x=328: TAGOFF: GOSUB 6280:GOTO 1130 

1710 IF y<112 THEN 60T0 1780 

1720 IF tex=12 THEN 1770 

1730 IF TEST(x+30-(n*10),y-12K>8 OR nt( 

gpa,gpo) THEN 1770 



1740 tel=ASC(nt$(gpa,gpo))-32 
1756 nt(gpa,gpo)=l: GOSUB 6700 
1766 INK 8,6 

1770 IF TEST(x+42-(N*5),y-38)=0 THEN GOS 
UB 1890: GOTO 2400 

1780 IF :<>70 AND TEST(x,y)<>0 THEN GOSUB 
1890: GOTO 1870 
1790 IF tex=6 THEN 1840 
1800 IF TEST(x+30-(n*10),y-12i<>8 OR nt( 
gpa.gpo) THEN 1840 
1810 nt(gpa,gpo)=l: GOSUB 6700 
1820 INK 8,6 

1830 tel=ASC(nt$(gpa,gpo))-32 
1840 GOSUB 1890 

1850 N=N+1:IF N=5 THEN N=l:x=x-24 
1860 D=0:X=X-8 
1870 SQ3UB 1890 
1880 GOTO 1270 
1890 ' ********************************** 

* * 

* EFFACE et AFFICHE * 

* LA POSITION ACTUELLE DE GASTON * 

* » 
♦«**♦♦♦***♦*****♦#****♦********♦»♦* 

1900 IF temps-142<=0 THEN GOTO 1940 

1910 temps=temps-2 

1920 IF temps/4<>INT(tenps/4) THEN GOTO 

1940. 

1930 PLOT temps, 246, 12 

1940 IF D=l THEN DI:PLOT a,b,l:MOVE X,Y: 

PRINT D$(N,1);:M0VE X,Y-16:PRINT D$(N,2) 

;:EI:R£TURN 

1950 DhPLQT a,b,l:MOVE X,Y:PRINT G$(N,1 

!;:MQVE X,Y-16:PRINT G$(N,2);:EI:RETURN 

i960 *♦*#*#*#***♦*******♦**♦**«******** 

* * 

* GASTON SAUTE * 
♦' ♦ 

********«************4************* 

1970 ' 

1980 IF INKEY(1)=0 THEN t=+12:GOT0 2020 

1990 IF INKEY(8>=0 THEN T=-12:G0T0 221Ô 

2000 T=0 

2010 IF d=0 THEN GOTO 2210 
2020 IF y=112 THEN 60T0 2040 
2030 IF x<300 THEN IF t=0 THEN GOTO 1270 
ELSE t=-12:G0T0 1270 
2040 FOR 1=1 TO 4 
2050 GOSUB 1890 
2060 SOUND l,150-y,l,4 
2070 D=1:Y=Y+4:X=X+T 
2080 GOSUB 1890 
2090 NEXT I 

210(3 IF x<376 THEN GOTO 2140 
2110 GOSUB 1890 
2120 IF gpo=4 THEN GOTO 2670 
2130 gpo=gpo+ 1 : a=a+32: x=l : y=y-32: TAGOFF : 
60SUB 6280: GOTO 1130 
2140 FOR 1=1 TQ 4 



2150 GOSUB 1890 

2160 SOUND l,150-y,l,5 

2170 D=1:Y=Y-4:X=X+T 

2180 GOSUB 1890 

2190 NEXT i 

2200 GOTO 1270 

2210 IF y=112 THEN GOTO 2230 

2220 IF x>70 THEN IF t=0 THEN GOTO 1270 

ELSE t=+12:G0T0 1270 

2230 FOR i=l TO 4 

2240 GOSUB 1B90 

2250 SOUND l,150-y,l,5 

226Ô d=0:y=y+4:x=x+t 

2270 GOSUB 1890 

2280 NEXT i 

2290 IF x>l THEN GOTO 2330 

2300 GOSUB 1890 

2310 IF gpo=l THEN GOTO 2670 

2320 gpo=gpo-l : a=a-32: x=328: y=y-32: TAGOF 

F:60SUB 6280: GOTO 1130 

2330 FOR i=l TO 4 

2340 GOSUB 1890 

2350 SOUND l,150-y,l,5 

2360 d=«:y=y-4:x=x+t 

2370 GOSUB 1890 

2380 NEXT i 

2390 GOTO 1270 

2400 ' ♦*♦♦♦»♦******♦#»♦»***♦***♦♦******* 

* * 

* gaston toabe * 

* * 
♦*#**#****♦******♦*♦♦**♦♦*♦***»**** 

2410 ' 

2420 IF d=0 THEN 2550 

2430 x=x+16:y=y-4 

2440 IF y>0 THEN GOTO 2500 

2450 TAGOFF: CLS 

2460 vies=vies-l:IF vies=0 THEN GOTO 728 



2470 L0CATE#4, vies, 1:PRINT#4," "; 

2480 L0CATE#4,vies,2:PRINT#4," "; 

2490 x=l:y=l:b=b-8:condi=0:6OTO 1130 

2500 y=y-8 

2510 GOSUB 1940 

2520 SOUND l,50+y,3,,l 

2530 GOSUB 1940 

2540 GOTO 2440 

2550 y=y-4 

2560 IF y>0 THEN GOTO 2620 

2570 TAGOFF: CLS 

2580 vies=vies-l:IF vies=0 THEN GOTO 728 



2590 L0CATE#4,vies,l:F'RINT#4," "; 

2600 L0CATE#4,vies,2:PRINT#4," "; 

2610 x=l:y=l:b=b-8:condi=0:GOTO 1130 

2620 y=y-8 

2630 GOSUB 1940 

2640 SOUND l,50+y,3,,l 

2650 GOSUB 1940 



2660 GOTO 2560 

2670 ' ********************************** 

* * 

* gaston sort du tableau * 

* * 
*♦*#*#»*♦#*♦****♦♦♦*»***♦**♦***♦*♦* 

2680 ' 

2690 x=260:y=200: 

2700 IF d=l THEN GOTO 2830 

2710 IF y>0 THEN GOTO 2780 

2720 TAGOFF: CLS: vies=vies-l: IF vies=0 TH 

EN GOTO 7280 

2730 L0CATE#4, vies, 1:PRINT#4," "; 

2740 L0CATE#4,vies,2:PRINT#4," "; 

2750 x=l:y=l 

2760 IF NOT (b-20)/16=INT((b-20)/16) THE 

N b=b-8 

2770 GOTO 1130 

2780 y=y-8 

2790 GOSUB 1940 

2800 SOUND l,50+y,3,,l 

2810 GOSUB 1940 

2820 GOTO 2710 

2830 IF y>10 THEN GOTO 2910 

2840 TAGOFF: CLS 

2850 vies=vies-l:IF vies=0 THEN GOTO 728 



2860 L0CATE#4, vies, 1:PRINT#4," "; 

2870 L0CATE#4,vies,2:PRINT#4," "; 

2880 x=l:y=l 

2890 IF NOT (b-2«)/16=INT((b-20)/16) THE 

N b=b-8 

2900 GOTO 1130 

2910 y=y-8 

2920 GOSUB 1940 

2930 SOUND l,50+y,3,,l 

2940 GOSUB 1940 

2950 GOTO 2830 

2960 ' *#*♦*#*♦******«♦*♦****♦♦*****#*#* 

* * 

* aise en page * 

* ♦ 
♦♦«♦♦♦♦♦m**»**»***»»*****»»******* 

2970 DEFINT a-z 
2980 MODE 

2990 FOR i=0 TO 15: INK i,0:NEXT i 
3000 BORDER 0: PAPER 15: CLS: PAPER 
3010 ' *♦***♦*♦«****»**#*«**♦****♦******* 
» * 

* trace du cadre des commentaires ♦ 

* * 
«««♦♦«♦♦«♦♦♦m**************** 

3020 SYMBOL AFTER 32 

3030 SYMBOL 150,255,255,255,143,143,143, 

143,143 

3040 SYMBOL 151, 143, 143, 143, 143,143*143, 

143, 143 

3050 SYMBOL 152,255,240,240,240,240,255, 

255,255 

25 



3060 SYMBOL 153,255,8,0,0,0,255,255,255 

3970 SYMBOL 154,143,15,15,15,15,255,255, 

255 

3080 HIND0W#3,1, 20,21, 25:CLS#3 

3090 PEN#3,15:LOCATE#3,20,1:PRINT#3,CHR$ 

(150); 

3180 FOR i=2 TO 4:LOCATE#3,20,i:PRINT#3, 

CHR$(151);:NEXT i 

3110 FOR i=l TO 4:LOCATE#3,l,i:PRINT#3,C 

HR*( 133);: NEXT i 

3120 L0CATEI3,1,5:PRINT#3,CHR$(143)+STRI 

NG$(18,153)+CHR$(154); 

3130 WIND0W#3,2, 19,21, 24:CLS#3 

3140 '*#**♦♦****♦*******♦♦«**«****♦♦** 

* * 

* trace du carre du plan * 

* * 

3150 WINDOM1, 16,29,8, 19: CLS#1 

3160 PEN#1,15:F0R i=l TO ll:L0CATE#l,5,i 

:PRINT#1,CHR$(151);:NEXT i 

3170 L0CATE#l,l,12:PRINT#l,OR»(152)+STR 

1NG$(3,153)+CHR$(154); 

3180 WINDOW«l , 16, 19, 7, 18:CLS»1 

3 1 90 ' *»*»******t***t****4*****t******** 

* * 

* trace du carre de vies * 

* ♦ 
♦*♦*♦♦****♦**#*♦♦**♦»«*♦♦**#♦***♦♦ 

3200 HINDOW*4,16,20,2,5:CLSt4 

3210 PEN#4, 15: L0CATEI4, 5, 1 : PRINT#4, CHR* ( 

150); 

3220 FOR 1=2 TO 3:LOCATE#4,5,i:PRINT#4,C 

HR$(151);:NEXT i 

3230 L0CATE#4, 1,4: PRINTI4, CHR$ ( 152) +STRI 

NG* (3, 153) +C«» ( 154) ; 

3240 SYMBOL 156,0,0,117,85,117,87,82,0 

3250 SYMBOL 157,0,0,119,68,100,68,119,0 

3260 SYMBOL 158,0,0,0,48,0,48,0,0 

3270 PEN «4,12:L0CATE#4,l,l:PRlNT#4,CrK$ 

(156)+CHR*(157)+CHR$(158); 

3280 WINDOW#4,16,19,3,4:CLS#4 

3290 ' ****♦♦***♦**«*♦♦»**♦#«****♦♦**♦** 

* t 

* affichage du tableau des scores * 

* * 
*********************************** 

3300 MND0W#2,2,14,2,5:CLSt2 

3310 PEN#2,15:L0CATE#2,13,1:PRINT#2,CHR$ 

(150); 

3320 FOR 1=2 TO 3:LOCATE#2,13,i:PRINT#2, 

CHR$(151);:NEXT i 

3330 L0CATE#2,1,4:PRINT#2,STRING$<12,153 

)+CHR$(154); 

3340 SYMBOL 150,0,0,238,170,234,138,142, 



3350 SYMBOL 151,0,0,234,78,78,78,234,0 
3360 SYMBOL 161,0,0,238,72,78,66,78,0 
3370 SYMBOL 152,0,0,31,32,64,32,31,0 

26 



3380 SYMBOL 153,0,0,255,0,0,0,255,0 

3390 SYMBOL 154,0,0,248,4,2,4,248,0 

3400 SYMBOL 155,0,0,119,68,116,20,119,0 

3410 SYMBOL 156,0,0,118,85,86,85,117,0 

3420 SYMBOL 157,0,0,112,70,112,70,112,0 

3430 SYMBOL 158,0,0,87,82,114,82,87,0 

3440 SYMBOL 159,0,0,7,4,7,33,7,0 

3450 SYMBOL 160,0,0,112,70,64,70,112,0 

3460 PENt5,6 

3470 WINDOW#2,l,13,2,4:PEN#2,15 

3480 FOR i=l TO 3:LQCATE#2,l,i:PRINT#2,C 

HRt< 133);: NEXT i 

3490 HINDOW2,2,13,2,4:CLS#2 

3500 PEN#2,7:L0CATEt2,l,l 

3510 PRINT»2,CHR$(150)+CHR$(151)+CHR$(16 

i); 

3520 PEN #2, 6: PRINT#2, CHR$ ( 152) +STRING* ( 

7, 153)+™$ (154); 

3530 PEN#2,5:L0CATEt2,l,2 

3540 PRINT#2,CHR$(155)+CHR*(156)+CHR$(15 

7); 

3550 PEN#2, 6: PRINT#2, STRING$ (9, "ô" ) ; 
3560 PEN#2,1:LQCATE#2,1,3 
3570 PRINT#2,CHR$(158)+CHR$(159)+CHR$(16 
0); 

3580 PEN«2,6:PRINT#2,STRIN6$(9,"0»); 
3590 HINDOH#2,5, 13,3,4 
3600 SYMBOL AFTER 32 
3610 M******************************** 
» * 

* plan * 

* * 
**♦***♦***♦*»*«♦♦**♦♦«*♦***»***♦ *** 

3620 SYMBOL AFTER 32 

3630 SYMBOL 122,255,129,129,129,129,129, 

129,255 

3640 SYMBOL 123,255,193,193,253,129,129, 

189,255 

3650 SYMBOL 124,255,193,193,237,129,129, 

189,255 

3660 SYMBOL 125,255,193,193,213,129,129, 

189,255 

3670 SYMBOL 126,255,129,129,189,131,131, 

191,255 

3680 SYMBOL 127,255,129,129,181,131,131, 

191,255 

3690 SYMBOL 128,255,129,129,169,131,131, 

191,255 

3700 SYMBOL 129,255,193,193,253,131,131, 

191,255 

3710 SYMBOL 130,255,193,193,237,139,139, 

191,255 

3720 SYMBOL 131,255,193,193,237,131,131, 

191,255 

3730 SYMBOL 132,255,193,193,245,147,147, 

191,255 

3740 SYMBOL 133,255,193,193,245,131,131, 

191,255 

3750 SYMBOL 134,255,193,193,217,131,131, 



191,255 

3760 SYMBOL 135,255,129,129,189,129,129, 

189,255 

3770 SYMBOL 136,255,129,129,173,129,129, 

189,255 

3780 SYMBOL 137,255,129,129,181,129,129, 

189,255 

3790 SYMBOL 138,255,129,129,169,129,129, 

189,255 

3800 DIM salle(12,4),prov(12,4),gaston(l 

2,4) 

3810 GOSUB 3820: GOTO 4026 

3820 FOR i=l TO 12: FOR j=l TO 4:L0CATE#1 

,j,i:PRINT#l,CHR$(32);:NEXT j,i 

3830 PRINT#1,CHR$(22)+CHR$(1); 

3840 FOR 1=1 TO 12 

3850 FOR j=l TO 4 

3860 salle=INT(RND*4)+l 

3870 prov(i,j)=salle 

3880 IF j=l THEN 3920 

3890 FOR h=l TO j-1 

3900 IF prov(i,j)=prov(i,h) THEN GOTO 38 

60 

3910 NEXT h 

3920 IF prov(i,j)=l THEN salle(i,.j)=INT( 

RND*3)+1:G0T0 3950 

3930 IF prov(i,j)=2 THEN saileii, j)=INT( 

RND#3)+4:G0TQ 3950 

394Ô salle(i,j)=INT(RND*10)+7 

3950 PEN#l,6:L0CATE#l,j,i:PRINT#l,CHR*(l 

22+salle(i,j)); 

3960 F'ENttl ,15: L0CATE#1 , j , i : PRINT#1 , CHR$ ( 

122); 

3970 gaston(i,j)=salle(i,j) 

3980 NEXT j 

3990 NEXT i 

4000 PRINT#1,CHR$(22)+CHR*(0); 

4010 RETURN 

4020 ' ***#****#♦******♦*****♦*******♦**» 

* * 

* trace du cadre #0 * 

* * 
*****♦***♦*******♦♦♦♦******♦******* 

4030 WINDOW#0,1,14,7,19:CLS 
4040 ' *******♦**♦*«♦*♦**♦******♦*♦****** 
*. * 

* trace des tableaux * 

* * 
#»*♦***»*»*****♦♦♦*#***♦**#******** 

4050 SYMBOL 197,24,24,24,24,90,90,165,66 
4O60 SYMBOL 198,0,0,0,165,0,165,66,0: 

LAMF'E 
4070 SYMBOL 140,0,0,224,160,224,160,160, 
0: 'A 
4080 SYMBOL 170,0,0,14,10,14,10,10,0: 

' A 
4090 SYMBOL 141,0,0,192,160,192,160,224, 
0:'B 
4100 SYMBOL 171,0,0,12,10,12,10,14,0: 



' B 
411m SYMBOL 142,6,0,224,128,128,128,224, 
6: 'C 
4120 SYMBOL 172,6,0, 14,8,8,8,14,0: 

' C 
4136 SYMBOL 143,0,6,192,160,160,160,224, 
6:'D 
4146 SYMBOL 173,6,0,12,10,10,10,14,0: 

' D 
4150 SYMBOL 144,6,6,224,128,192,128,224, 
6:'E 
4166 SYMBOL 174,0,6,14,8,12,8,14,6: 

' E 
4176 SYMBOL 145,6,6,224,128,192,128,128, 
0: F 
4186 SYMBOL 175,0,6,14,8,12,8,8,0: 

' F 
4190 SYMBOL 146,0,6,224,128,166,160,224, 
6: 'G 
4206 SYMBOL 176,6,6,14,8,16,16,14,6: 

' G 
4216 SYMBOL 147,6,0,166,160,224,160,160, 
0:'H 
4226 SYMBOL 177,6,0, 10, 16. 14, 16, 16,6: 

' H 
4236 SYMBOL 148,6,0,224,64,64,64,224,0: 

'I 
4240 SYMBOL 178,6,6,14,4,4,4,14,6: 

'•I 
4256 SYMBOL 149,6,6,224,64,64,64,192,6: 

'J 
4266 SYMBOL 179,6,6,14,4,4,4,12,6: 

' J 
4276 SYMBOL 156,0,0,160,192,192,166,166, 
6:'K 
4280 SYMBOL 180,0,0,10,12,12,10,10,0: 

' K 
4290 SYMBOL 151,0,0, 128, 128, 128, 128,224, 
0:'L 
4360 SYMBOL 181,0,0,8,8,8,8,14,0: 

' L 
4310 SYMBOL 152,0,0,160,224,160,160,160, 
6:'M 
4326 SYMBOL 182,0,0,10,14,10,10,16,6: 

' M 
4336 SYMBOL 153,0,0,160,224,224,224,166, 
6:'N 
4346 SYMBOL 183,0,0,10,14,14,14,16,6: 

' N 

4350 SYMBOL 154,0,0,224,160,160,160.224, 
0:'O 
4366 SYMBOL 184,6,0,14,10,10,10,14,0: 

' 
4376 SYMBOL 155,6,0,224,166,224,128,128, 
0: F 
4386 SYMBOL 185,6,6,14,16,14,8,8,6: 

' F 
4396 SYMBOL 156,0,6,224,166,166,166,224, 
32: 'Q 



4460 SYMBOL 186,0,0,14,10,16,16,14,2: 

' Q 
4416 SYMBOL 157,6,6,224,166,224,192,166, 
6:'R 
4420 SYMBOL 187,0,0,14,10,14,12,10,0: 

' R 
4430 SYMBOL 158,0,6,224,128,224,32,224,0 
: 'S 
4440 SYMBOL 188,6,6,14,8,14,2,14,0: 

'S 
4456 SYMBOL 159,6,6,224,64,64,64,64,0: 

'T 
4460 SYMBOL 189,0,0,14,4,4,4,4,0: 

' T 
4470 SYMBOL 160,6,6,160,166,160,160,224, 
0:'U 
4486 SYMBOL 190,0,0,10,10,16,16,14,6: 

' U 
4490 SYMBOL 161,0,0,160,160,160,224,64,0 
: 'V 
4500 SYMBOL 191,6,6,16,10,10,14,4,0: 

' V 
4510 SYMBOL 162,6,6,160,160,160,224,160, 
0:'H 
4526 SYMBOL 192,0,0,10,10,16,14,16,0: 

' W 
4530 SYMBOL 163,6,0,160,166,64,160,160,0 
: 'X 
4546 SYMBOL 193,0,0,10,10,4,16,16,6: 

' X 
4550 SYMBOL 164,6,6,166,224,64,64,64,0: 

'Y 
4560 SYMBOL 194,6,6,10,14,4,4,4,0: 

' Y 
4570 SYMBOL 165,0,0,224,32,64,128,224,0: 

'Z 
4580 SYMBOL 195,6,0,14,2,4,8,14,0: 

' Z 
4596 SYMBOL 33,255,255,255,255,255,255,2 
55,255: 'plein 

4600 SYMBOL 166,20,26,60,52,255,231,60,6 
0: canelaser 

4616 SYMBOL 167,255,24,0,24,0,24,0,24: 't 
able 

4620 GQSUB 6350: GOTO 110 
4630 ********************************** 

* * 

* CONVERTIT LES LETTRES * 

* * 

******** ************ *************** 

4646 texte=INT(LEN(texte$)/24)+l 

4656 INK 3,0 

4660 FOR j=l TO texte 

4676 text»=MID$(texte$, (J*24)-23,24) 

4680 GOSUB 4736 

4690 TY=TY+1 

4700 NEXT J 

4710 INK 3,20: INK 4,24 

4720 RETURN 



4736 TEXT=LEN(TEXT$) 
4740 INK 4,0 

4750 IF TEXT/2<>INT(TEXT/2) THEN TEXT*=T 
EXT$+" ":G0T0 4730 
4766 TEX1$=" U :TEX2*=" U 
4776 FOR 1=1 TO TEXT STEP 2 
4780 TEX1=ASC(MIW(TEXT$,I,D) 
4790 TEX2=ASC(MID$(TEXT$, 1+1,1)) 
4806 IF TEX1=32 THEN TEXl=-43 
4816 IF TEX2=32 THEN TEX2=-73 
4820 TEXl$=TEXl$+CHR$(TEXl+75) 
4836 TEX2$=TEX2»+CHR*(TEX2+105) 
4846 NEXT I 

4850 PRINT CHR$(22)+CHR$(1); 
4866 LOCATE TX,TY:PRINT TEX1$; 
4870 LOCATE TX,TY:PRINT TEX2$; 
4880 PRINT CHR$(22)+CHR$(0); 
4890 RETURN 

4966 '*** tableau 13 ** 
4910 TEX=(INT(RND*2)+l)*6:tx=7 
4920 LOCATE tx,tex:PEN 14 
4930 PRINT CHR$(167); 
4940 LOCATE tx,TEX-l:PEN 8 
495Ô PRINT CHR$(196); 
4966 PRINT CHR$(22)+CHR$(1); 
4976 INK 8,6,6 
4986 FOR j=2 TO 13 

4996 PEN 14: LOCATE j, 7: PRINT CHR$(33); 
5600 PEN lhLOCATE j, 7: PRINT CHR$(1)+CHR 
$(24); 

5010 PEN 14: LOCATE j, 13: PRINT CHR*(33>; 
5Ô20 PEN lhLOCATE j, 13: PRINT CHR$(1)+CH 
R$(24); 
5630 NEXT j 

5640 EVERY 100,0 GOSUB 7516 
5650 FOR i=4 TO 10 STEP 3 
5060 LOCATE i,l:PEN 16:PRINT CHR$(197);: 
LOCATE i,8: PRINT CHR$(197); 
5676 LOCATE i,l:PEN 9: PRINT CHR$(198);:L 
OCATE i, 8: PRINT CHR$(198); 
5686 NEXT i 
5096 FOR j=l TO 13 

5166 LOCATE l,j:PEN 15: PRINT CHR$(33); 
5116 LOCATE 14, j: PRINT CHR$(33); . 
5126 NEXT j 

5130 LOCATE 2,6:PEN 2:PRINT CHR*(166); 
5146 LOCATE 13, 6: PRINT CHR»(166); 
5156 GOSUB 7676:h=REMAIN(2) 
5160 FOR cam=0 TO 3 
5170 xcam=INT(RND*4)+l 
5180 ycaœ=<INT(RND*3)+t)+(ca««3> 
5190 IF xcam=gpo AND yca»=gpa THEN EVERY 
100,2 GOSUB 7546 

5266 xcan(can)=xcani:ycai(can)=ycam 
5216 NEXT cai 
5220 GOSUB 7660 
5230 PEN 1 

5240 PRINT CHR$(22)+CHR$(0); 
5250 RETURN 
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5266 '*♦* tableau 14 ** 

5276 tex=6:tx=8 

5286 LOCATE tx,tex:PEN 14 

5296 PRINT CHR$(167); 

5366 LOCATE tx,tex-l:PEN 8 

5316 PRINT CHft* (196); 

5326 GOSUB 4966 

5336 PEN 6:L0CATE 6,7:PRINT" "; 

5346 LOCATE 6, 8: PRINT" "; 

5356 RETURN 

5366 '*** tableau 15 ** 

5376 TEX=6:tx=7 

5386 LOCATE tx,tex:PEN 14 

5396 PRINT CHR$(167); 

546(3 PEN 8:L0CATE tx,tex-l 

5416 PRINT CHR$(196); 

5426 GOSUB 4966 

5436 PEN 6:L0CATE 8,7:PRINT" "; 

5446 LOCATE 8,8:PRINT" "; 

5456 RETURN 

5466 '*** tableau 16 ** 

5476 tex=6:tx=8 

5486 LOCATE tx,tex:PEN 14 

5496 PRINT CHR*<167); 

5566 PEN 8:L0CATE tx,tex-l 

5516 F-RINT CHR$(196); 

5526 GOSUB 4966 

5536 PEN 6:L0CATE 4,7:PRINT" ";:LOCATE 

16,7:PRINT" "; 

5546 LOCATE 4,8:PRINT" ";:LOCATE 16,8:P 

RINT" "; 

5556 RETURN 

5566 '♦*« tableau 61 ** 

5576 GOSUB 4916 

5586 PEN 9:F0R i=l TO 13:L0CATE l,i:PRIN 

T CHR$(267);:NEXT i 

5596 RETURN 

5666 '♦** tableau 62 ** 

5616 GOSUB 5276 

5626 GOSUB 5586 

5636 RETURN 

5646 '*** tableau 63 ** 

5656 GOSUB 5476 

5666 60SUB 5586 

5676 RETURN 

5686 '*** tableau 64 ** 

5696 GOSUB 4916 

5766 PEN 9:F0R i=l TO 13:L0CATE 14,i:PRI 

NT CHR*(267);:NEXT i 

5716 RETURN 

5726 '♦** tableau 65 ** 

5736 GOSUB 5376 

5746 GOSUB 5766 

5756 RETURN 

5766 '»** tableau 66 ** 

5776 GOSUB 5476 

5786 GOSUB 5766 

5796 RETURN 

5866 '*** tableau 67 ** 
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5816 GOSUB 4916 

5826 GOSUB 5586 

5836 GOSUB 5766 

5846 RETURN 

5856 '*♦* tableau 68 ** 

5866 GOSUB 5326 

5876 TEX=12:tx=7 

5886 LOCATE tx,tex:PEN 14 

5896 PRINT CHR$(167>; 

5966 PEN 8: LOCATE tx,tex-i 

5916 PRINT CHR$(196); 

5926 PRINT CHR$(22)+CHR$U); 

5936 FOR j=8 TO 12 

5946 PEN 14: LOCATE 8, j: PRINT CHR$(33); 

5956 PEN 1-1: LOCATE 8,j:PRINT CHR$(l)+CHfi 

$(24); 

5966 NEXT j 

5976 PRINT CHR$(22)+CHR$(0); 

5986 GOSUB 5826 

5996 RETURN 

6666 '*** tableau 69 ** 

6616 GOSUB 5276 

6626 GOSUB 5826 

6636 RETURN 

6646 '*♦♦ tableau 16 ** 

6656 GOSUB 5426 

6666 TEX=12:tx=8 

6676 LOCATE tx,tex:PEN 14 

6686 PRINT CHR$(167); 

6690 PEN 8: LOCATE tx,tex-l 

6166 PRINT CHR$(196); 

6116 PRINT CHR$(22)+CHR$<1); 

6126 FOR j=8 TO 12 

6136 PEN 14:L0CATE 6,j:PRINT CHR$(33); 

6146 PEN 11: LOCATE 6, j: PRINT CHR*(1)+CHR 

$(24); 

6156 NEXT j 

6166 PRINT CHR$(22)+CHR$(6); 

6176 GOSUB 5826 

6186 RETURN 

6196 '*** tableau 11 ** 

6266 GOSUB 5376 

6216 GOSUB 5826 

6226 RETURN 

6236 '*♦* tableau 12 ** 

6246 GOSUB 5476 

6256 GOSUB 5820 

6266 RETURN 

6276 ' «M***»»»»»*******************»»* 

♦ # 

♦ affichage du score * 

♦ * 
»****»*♦♦*♦***»********♦*****♦*♦*♦♦ 

6286 SC=SC+INT((TEMPS-106)/4)+(TEL*TIM) 

6290 IF sc<0 THEN sc=0 

6306 LùtATE#2,l,l:PRINT#2,USING"####t### 

*";*; 

6310 IF sc>record THEN record=sc:LOCATE# 
2, 1,2: PRINT#2,USING"#########"; record; 



6326 TEL=6: 
6330 RETURN 
6346 ' ********************************** 

* * 

* DISTRIBUE LES LETTRES * 

* * 
**#**♦*♦*****♦*****#*♦***♦*♦******* 

6356 DM NT* (12, 4) , NT C 12, 4) ,PH* (48) 

6366 pd$=STRING$(48.32) 

6376 READ'phc$ 

6386 PHC=LEN(PHC$! 

6396 FHC$=PHC$+STRING$ (48-PHC, 32) 

6466 IF PHC/2=INT(PHC/2) THEN PHC1=PHC E 

LSE PHC1=PHC+1 

6410 PHC1$=MIB$(PHC$,1,PHC1):PC*=PHC1$ 

6426 PHC=48 

6436 FOR 1=1 TO 12:FOR J=l TO 4:NT(I.J)= 

6:NEXT J,I 

6446 FOR PH=1 TO PHC 

6456 PH$(PH)=«ID$(PHC$,PH,1) 

6466 NEXT PH 

6476 FOR NSA=1 TO 12 

6486 FOR NSO=l TO 4 

6496 NT=INT(RND*PHC)+1 

6566 NT$(NSA,NSO)=PH$(NT) 

6516 HHILE NT<PHC 

6526 PH$(NT)=PH$(NT+1) 

6536 NT=NT+1 

6546 WEND 

6550 PHC=PHC-1 

6560 NEXT NSO 

6570 NEXT NSA 

6580 RETURN 

6590 END 

6666 ' #**♦♦*»***♦♦»***********♦********* 

* * 

* PHRASES CACHEES * 

* * 
M***»»»********»*»»**»»**********» 

6616 DATA "L HOMME EST CONDAMNE A ETRE L 

IBRE" 

6626 DATA "ETRE CONTESTE C EST ETRE CO 

NSTATE" 

6636 DATA "ON N AIME PLUS PERSONNE DES 

OU ON AIME" 
6646 DATA "LA SINGULARITE EST DAN6EREUSE 

EN TOUT" 

6656 DATA "TOUT CE QUI EST PLUS EST INFI 
NIMENT MOINS QU UN" 
6666 DATA "LA MORALE EST LA FAIBLESSE DE 

LA CERVELLE" 
6676 DATA " GOUVERNER C EST CHOISI 
R" 

6680 DATA "BOHEMIENS VOUS AVEZ EMPORTE 
TOUS LES ENFANTS" 
6690 ' ********************************** 

* * 

* reconstitue la phrase * 

* * 



M»»*»**»»****»*»*»*»»*******»***** 
6700 IF tin=0 THEN GOTO 6B80 
6718 SOSUB 1890 
6720 TAGOFF 
6730 INK 8,6 

6740 PRINT CHR$(22)+CHR$(1); 
6750 LOCATE tx,tex-l:PEN 0::PRINT CHR$(1 
96); 

6760 gao=ASC(NT$(GPa,GPQ)) 
6770 IF gao=32 THEN gao=0 ELSE gao=32 
6780 LOCATE tx,tex-l:PEN 8:PRINT CHR*(AS 
C(NT*(GPa,GPQ))+gao); 
6790 WHILE INKEY$<>"":WEND 
6800 IF INKE¥(0)=-1 AND INKEY(2)=-1 THEN 
6800 

6810 IF INKEY(2)=-1 THEN fe=l 
6820 LOCATE tx,tex-l:PEN 0:PRINT CHR$(AS 
C(NT$(GPa,GPO))+gao); 
6830 LOCATE tx,tex-l:PEN 8:PRINT CHR$(19 
6); 

6840 PRINT CHR*(22)+CHR$(0i; 
6850 TAG 
6860 GOSUB 1890 
6870 IF fe=l THEN *e=0: RETURN 
6880 i=l 

6890 h$=MID$(PC$,I,l> 
6900 IF H$ONT$(GPA,GPO) THEN 7070 
6910 PC*=MID*<PC»,l,I-l)+"0»+RIGHT*(PC*, 
PHC1-I) 

6920 PD*=LEFT$(PW, I-l)+H*+RIGHT$tPD$,PH 
Cl-I) 

6930 PD1*="":PD2$=" 
6940 FOR ci=l TO PHC1 STEP 2 
6950 hl=ASC(NID*(pd$,ci,l)> 
6960 h2=ASC(MID$(pd$,ci+l,D) 
6970 IF hl=32 THEN hl=-43 
6980 IF h2=32 THEN h2=-73 
6990 pdl$=pdl*+CHR*(hl+75) 
7000 pd2$=pd2»+CHR*(h2+105) 
7010 NEXT ci 

7020 PRINTt3,CHR$(22)+CHR$(l);:PEN#3,l 
7030 L0CATE#3,l,2:PRINT#3,pdl$ 
7040 L0CATE#3,l,2:PRINTt3,pd2* 
7050 PRINT#3,CHR$(22)+CHRi<0); 
7060 GOSUB 7110:RETURN 
7070 i=i+l:IF i=PHCl+l THEN 7080 ELSE GO 
TO 6890 

7080 TEL=-10*(ASC(NT*(GPA,GPO) ) ): RETURN 
7090 ' *♦♦**♦*♦*♦♦*♦**♦*»♦*♦**«♦**♦♦**** 

* * 

* VERIFICATION DE LA PHRASE * 

* * 
*********************************** 

7100 H=REMAIN(0):GOSUB 1890:BOSUB 7110:T 

IM=l:GOTQ 7130 

7110 IF PD*=PHC1* THEN GOTO 7120 ELSE RE 

TURN 

7120 TAGOFF:WINDOW#0,2,13,ll,17:CLS:text 

e*="BRAVO VOUS AVEZ BI 



EN JOUE MAIS SAUREZ VOUS TROUVER LA 
PROCHAINE PHRASE" :TX=1:TY=5: GOSUB 4640: G 
QTO 7340 ' 
7130 TAGOFF 
7140 CLS 

7150 WINDOW#0, 1,20,7,19 
7160 text*="REGLES DU JEU":TX=4:TY=2:PEN 
2: GOSUB 4730 

7170 TEXT$="ENFONCEZ UNE TOUCHE" :PEN 4:T 
X=3:TY=13: GOSUB 4730 
7180 WINDOW»0,2,13, 11,17 
7190 TEXTE$=" LE TEMPS QUI VOUS ETAITIMP 
ARTI EST ECOULE VOUS ALLEZ DEVOIR 
ALLERCHERCHER LES LETTRES QUI VOUS MANQU 
ENT" 

7200 TX=1:TY=1:PEN 3:GOSUB 4640:GOSUB 77 
60 

7210 IF PARTIE=2 THEN GOTO 7250 
7220 TEXTE*»' QUAND VOUS REPONDREZ AUTEL 
EFON UNE LETTRE IRA S AFFICHER A LA PLA 
CE DUTELEFON VOUS POURR 

EZ LA GARDER OU LA JETER C 

EST A VOUS DE CHOISIR" :TX=1:TY=1: GOSUB 4 
640: GOSUB 7760 

7230 TEXTE*=" SI VOUS VOULEZ GARDER LA 
LETTRE APPUYEZ SUR LAFLECHE QUI DESCEND 
SI VOUS VOULEZ JETER LALETTRE APPU 
YEZ SUR LA FLECHE QUI MONTE" :TX=1:TY=1 
: GOSUB 4640: GOSUB 7760 
7240 TEXTE$=" FAITES LE BON CHOIX OU VOU 
S PERDREZ LES POINTS QUE VOUS AUREZ GAGN 
ES AUPARAVANT":TX=1:TY=2:G0SUB 4640:GO 
SUB 7760 

7250 WINDOW»0, 1,14,7, 19: CLS 
7260 GOSUB 6420 
7270 60T0 1080 
7280 **♦*♦**♦♦♦**»»«**««##**♦********* 

♦ * 

* TEST DE FIN * 
» * 

««««««♦M****»**»*****»*»»***** 

7290 TA60FF 

73*0 CLS 

7310 h=(REMAIN(0> AND REMAIN(l) AND REMA 

IN(2)) 

7320 WINDQW#0,2, 13,11, 17:CLS 

7330 SPEED KEY 10,7 

7340 texte*=" VOULEZ VOUS REJOUER UNEAUT 

RE PARTIE POUR OUI 

N POUR NON FAITES VQTR 
E CHOIX":TX=l:TY=l:PEN 3:GOSUB 4640 
7350 WHILE INKEY*<>"":WEND:CALL IBB06 
7360 quet=INKEY*: IF que$="" THEN 7360 
7370 IF gueiO'o" AND que$<>"0" THEN GOT 
7740 

7380 MND0W#3,2, 19,21,24 
7390 CLS#3 
7400 TIM=0 
7410 PARTIE=PARTIE+1:IF PARTIE=6 THEN PA 



RTIE=1: RESTORE 

7420 RECORD=SC 

7430 L0CATE#2,l,2:PRINTt2,USING"«#t##»# 

t"; record; 

7440 L0CATE#2, 1, 1:PRI NT#2, US IN6 "######## 

t";sc; 

7450 ti«es=0 

7460 GOSUB 6360 

7470 GOSUB 3820 

7480 CLS: GOTO 550 

7490 ' »*»♦♦***♦♦***♦*♦♦♦**♦»**»*****#«#♦ 

* times * 
« * 
*♦♦♦♦**«»♦»*«♦##*♦*♦#*♦#♦*****»*♦ 

7500 times=tiœes+l:RETURN 

7510 ' m»*»»*****»**»**********»»***»**» 

* * 
» SOUND ♦ 

* * 
M********************************* 

7520 SOUND 1,150,25,5:RETURN 

7530 ' *********»»******»***4***4*******t 

« * 

* LASER * 

* * 
*********************************** 

7540 CH0X(1)=J£378:CH0X(2)=!£39F 
7550 CH0=INT(RND*2)+1 
7560 IF CH0=1 THEN CHA=1 ELSE CHA=-1 
7570 FOR CHOX=CHOX(CHO) TO CHOX(CHO+CHA) 

STEP CHA 
7580 IF PEEK(CHOX)>3 THEN condi=l:RETURN 
7590 POKE CH0X,255 
7600 SOUND 3,CH0X-i£377,l 
7610 NEXT 
7620 FOR CHOX=CHOX(CHO) TO CHOX(CHO+CHA) 

STEP CHA 
7630 POKE CHOX,0 
7640 NEXT 
7650 RETURN 
7660 ' «t******************************** 

* * 
t CAMERAS * 
« * 
#»«#♦♦*#*#**♦*«««*♦«*♦*##♦***♦♦*« 

7670 PRINT CHR$(23)+CHR»(1); 

7680 FOR cir=0 TO 3 

7690 PLOT 456+(xcan(cir)«32),186-(yca«i(c 

ir)»16),2 

7700 PLOT 468+(xcaB(cir)*32),186-(ycani(c 

ir)*16),2 

7710 NEXT cir 

7720 RETURN 

7730 ' *♦♦♦♦♦♦♦»♦***«♦**«♦♦***»*#***#*** 

7740 SPEED KEY 10, 7: SYMBOL AFTER 32*ND 

7750 ***********»*«**4****«*****t*****t 

7760 WHILE INKEY»0"":WEND:CALL Î<BB06:CL 

S: RETURN 
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Utilitaire 



MINI MAC 



Patrice JACQUES 



Mini-mac est un éditeur-gestionnaire de menus déroulants. La pre- 
mière partie de cet utilitaire est une routine en langage machine utili- 
sable grâce à la RSX IMenu,No,X,Y. La seconde partie est un éditeur 
en Basic pour composer les textes des menus (10 menus maximum 
numérotés de à 9). 




En tant que mode d'emploi, nous allons 
simuler une petite application qui vous 
permettra, par l'exemple, d'utiliser 
mini-mac. Soyons modeste, ce sera 
une petite calculatrice 4 opérations. Le 
menu principal comportera donc les 
options addition, soustraction, multipli- 
cation, division et Quitter. 
Un second menu de confirmation appa- 
raîtra si "quitter" est validé et présen- 
tera les options "confirmation" et 
"annulation". 

Avant d'utiliser ces menus, vous allez 
les créer au moyen de l'éditeur de mini- 
mac (au lancement du programme, 
c'est .bien sûr l'option EDITEUR du 
menu principal). 

Notre menu No ayant un titre, pres- 
sez "espace" puis "enter" pour vali- 
der votre choix. A la question titre, 
répondez CALCULETTE. Ensuite, rem- 
plissez le nom des cinq options comme 
convenu. Pour indiquer que le menu No 
est achevé, pressez Q majuscule 
(suivi de "enter"). Le texte de menu 
est terminé. 
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Mini-mac va alors vous indiquer sa sur- 
face. En effet, vous avez remarqué 
qu'un menu déroulant n'altère pas le 
contenu de l'écran à sa fermeture car 
il sauvegarde dans un buffer ce qui se 
trouve à l'endroit où il va apparaître, 
puis le restitue à sa fermeture. 
De ce fait, plus la surface des menus 
est grande et plus la routine nécessite 
de mémoire pour fonctionner. 
Le programme vous demande ensuite 
le mode écran MAXIMUM dans lequel 
vous afficherez votre menu et ce, pour 
la même raison, car en mode la sur- 
face est 4 fois supérieure au mode 2. 
En cas de doute, mettez le mode car 
si vous consommez plus de place qu'il 
n'y en a de réservée, la routine sera 
écrasée par le buffer de sauvegarde et 
votre CPC plantera M! 
Pour le menu No 1, procédez de la 
même façon en ne mettant pas de titre. 
Pour les deux menus, vous choisirez 2 
comme mode écran MAXIMUM (j'in- 
siste). Pour quitter l'éditeur, pressez la 
touche F et vous reviendrez au menu 
principal. 

L'édition étant terminée, passez à la 
sauvegarde de votre travail. C'est 
grâce à cette opération que vous pour- 
rez utiliser les menus dans vos applica- 
tions personnelles. 

En premier lieu, un écran vous décrira 
l'occupation mémoire de la routine et 
l'espace utile en fonctionnement. Un 
menu vous demandera alors confirma- 
tion de la sauvegarde. Si vous êtes OK, 
elle sera effectuée. Un autre écran vous 
indiquera deux lignes BASIC que vous 
devrez IMPERATIVEMENT insérer au 
début de votre programme. 



Utilisation de IMENU, No, X, Y 

Vous allez enfin pouvoir écrire votre programme en suivant ces quelques 
directives. Tout d'abord, recopiez les deux- lignes Basic qui ont été affi- 
chées à la fin de la sauvegarde (et encore une fois pensez à passer en 
mode 2 avant RUN). 

10 CLEAR:MEMORY &A1ED:LOAD"IMENUS.BIN" 
20 CHOIX%=0:CALL &A270,'S>CHOIX% 
On affiche le menu No aux coordonnées 10,14 
30 IMENU,0,10,14 
Test de la réponse dans CHOIX% 
40 ON CHOIX% GOTO 50,60,70,80,90 
Addition 

50 INPUT A:INPUT B:PRINT A + B:GOTO 30 
Soustraction 

60 INPUT A:INPUT B:PRINT A-B:GOTO 30 
Multiplication 

70 INPUT A:INPUT B:PRINT A*B:GOTO 30 
Division 

80 INPUT A:INPUT B:PRINT A/B:GOTO 30 
Quitter (on affiche le menu No 1 en X = 14 et Y = 1 5) 
90 IMENU, 1,1 4,15:1F CHOIX%=2 THEN GOTO 30 ELSE END 

Vous êtes maintenant prêt à utiliser MINI-MAC. Bon courage ! 



1000 '♦**»***##*****#♦**»****** 

1Ô10 '♦* JACQUES Patrice ** 
1020 '♦ présente: * 
1030 '«* Il i n i - M a c ** 

1040 ' ♦#♦**#***»*♦****#*#♦#*#** 

1050 ' 

1060 'Listing No 1 

1070 ' 
1080 ' 
1090 ' 

1100 MODE 1: BORDER 14: INK 0,0:11*: 1,14:1 

NK 2, 18: INK 3,6:GQSUB 1310:CLEAR 

1110 PEN 3:L0CATE 3,2:PRINT CHR*(150)STR 

ING$(16,154)CHR$(156) 

1120 PEN 2:L0CATE 5,3:FRINT"MINI-MAC "CH 

R$(164)"1987" 

1130 PEN 3:L0CATE 3,3:PRINT CHR$(149):LQ 

GATE 20,3:PRINT CHR$(149) 

1140 LOCATE 3,4:PRINT CHR$(147)STRING$(1 

6,154)CHR$(153> 

1150 MOVE 0,13: DRAWR 639, 0,3: MOVE 0,35:D 

RAWR 639,0 

1160 MOVE 0,0: DRAW 0,399, 3: DRAW 639,399: 

DRAW 639,0: DRAW 0,0 

1170 PEN 2:L0CATE 2,24:PRINT .STRING$(7,2 

32)STRING$(24,32)STRING$<7,232) 

1180 EVERY 10 GOSUB 1776 

1190 WINDOWS!, 14,20, 11, 14: PRINT#1, "Pense 

es";:PRINT#l,"de CPC." 

1200 FOR 1=1 TO 500:NEXT 

1210 PEN 1 : LOCATE 9,24:PRINT " Avant je 

tais moche... ":FOR Z=l TO 750:NEXT Z 

1220 MES*="Avant j'étais moche. .. Mainte 

nant c'est fini. Je déroule les menus co 

me tout le monde avec la simplicité en 

prime ! ! ! " 

1230 GOSUB 1550 

1240 FOR 1=1 TO LEN(MES$): LOCATE 10,24: P 

RINT MID$(MES$,I,22):F0R Z=l TO 60 

1250 NËXT:NEXT 

1260 IF INKEY*<>"" THEN GOTO 1270 

1270 CLS#1:PRINT#1, "Charge-"; :PRINT#1, "m 

ent en"; :PRINT#1, "cours. ":PEN 1 

128» LOCATE 9,24:PRINT " X Veuillez pat 

i en ter X" 

1290 LOCATE 1,20 

1300 RUN"! MAIN. BAS" 

1310 REM DESSIN DU CLAVIER DU CPC 

1320 MOVE 114, 48: DRAW 416, 48, 2: DRAW 414, 

65:DRAW 116,65:DRAW 114,48 

1330 MOVE 116, 48: DRAW 126, 42: DRAW 408,42 

:DRAW 416,48 

1340 MOVE 116,65:DRAW 136,108:DRAW 394,1 

08:DRAW 414,65 

1350 MOVE 150, 104: DRAW 306, 104,1: DRAW 30 

8,96:DRAW 146,96:DRAW 150,104 

1360 MOVE 144, 92: DRAW 310, 92: DRAW 312,74 

:DRAW 268, 74: DRAW 268,69 

1370 DRAW 182, 69: DRAW 182, 74: DRAW 136,74 

:DRAW 144,92 

1380 MOVE 316,90:DRAW 336,90:DRAW 343.68 

:DRAW 320,68:DRAW 316,90 



1390 MOVE 337,104:DRAW 388,104:DRAW 398, 

80:DRAW 344, 80: DRAW 337,104 

1400 MOVE 348, 66: DRAW 346, 74: DRAW 402,74 

:DRAW 406,66 

1410 MOVE 412, 1Ô4:DRAW 330,104:DRAW 332, 

94: DRAW 314, 94: DRAW 312,104 

1420 REM DESSIN DE L'ECRAN DU CPC 

1430 MOVE 168, 294: DRAW 362, 294, 2: DRAW 36 

2,130:DRAW 168,130:DRAW 168,294 

1440 MOVE 176, 130: DRAW 176, 282: DRAW 354, 

282: DRAW 354,130 

1450 MOVE 168,294:DRAW 176,282:M0VE 362, 

294: DRAW 354,282 

1460 MOVE 168, 294: DRAW 200, 312: DRAW 228, 

312:DRAW 238,302:DRAW 298,302 

1470 DRAW 312, 312: DRAW 336, 312: DRAW 362, 

294: MOVE 232, 310: DRAW 306,310 

1480 MOVE 182,276:DRAW 348,276:DRAW 348, 

156: DRAW 182, 156: DRAW 182,276 

1490 MOVE 194,266:DRAW 336,266,1: DRAW 33 

6,168:DRAW 194,168:DRAW 194,266 

1500 MOVE 182,276:DRAW 194, 266, 2: MOVE 34 

8, 276: DRAW 336,266 

1510 MOVE 348, 156: DRAW 336, 168: MOVE 182, 

156: DRAW 194,168 

1520 MOVE 176,150:DRAW 354,150 

1530 MOVE 180, 130: DRAW 184, 118: DRAW 344, 

118: DRAW 350,130 

1540 RETURN 

1550 REM DESSIN DU MACINTOSH 

1560 GOSUB 1660 

1570 MOVE 490, 292: DRAW 490, 362, 2: MOVE 49 

2,364:DRAW 560,364 

1580 MOVE 562, 362: DRAW 562,278 

1590 MOVE 464, 294: DRAW 576, 274: DRAW 556, 

254: DRAW 448, 274: DRAW 464,294 

1600 MOVE 522, 300: DRAW 552, 300: DRAW 552, 

296: DRAW 522, 296: DRAW 522,300 

1610 MOVE 504, 358: DRAW 550,358, l:MOVER 2 

,-2:DRAWR 2,0:MOVER 2,-2:DRAWR 0,-2 

1620 MOVER 2,-2:DRAWR 0,-2B:MOVER -2,-2: 

DRAWR 0,-2: MOVER -2,-2:DRAWR -2,0 

1630 MOVER -2,-2:DRAWR -46,0:MOVER -2,2: 

DRAWR -2,0: MOVER -2, 2: DRAWR 0,2 

1640 MOVER -2, 2: DRAWR 0,28: MOVER 2,2:DRA 

WR 0,2: MOVER 2, 2: DRAWR 2,0 

1650 RETURN 

1660 REM DESSIN DE LA BULLE 

1670 DEG:X=520:Y=308:R=100:PLAT=1.5:DEB= 

250: FIN=600: GOSUB 1710 

1680 X=440:Y=256:R=30:PLAT=1:DEB=275:FIN 

=350: GOSUB 1710 

1690 X=452: Y=258: R=35: PLAT=1 . 1 : DEB=270: F 

IN=340: GOSUB 1710 

1700 RETURN 

1710 REM TRACE CERCLES/ELLIPSES 

1720 PLOT X+R*COS(DEB),Y+R*SIN(DEB),0 

1730 FOR I=DEB TO FIN STEP 10 

1740 Xl=X+R*COS(I):Yl=Y+R*SIN(I)/PLAT 

1750 DRAW Xl,Yl:PLOT X1,Y1,3 

1760 NEXT I: RETURN 

1770 IF INKEY*=" " THEN GOTO 1270 ELSE R 

ETURN 



1 000 ' *♦**♦****♦♦#♦»*****♦♦»**« 

1010 '** JACQUES Patrice ** 
1020 '* présente: * 
1030 '** M i n i - M a c ** 
1 040 ' *♦♦♦#»#*#♦***»»*«****♦*#* 



1Ô60 'Listing No 2 

1070 ' 

1080 ' 

1090 ' 

1100 'Initialisation et implantation du 

code objet 
1110' 

1120 MEMORY MFFFrBORDER 14,15:CLEAR:CLS 

#1:PRINT#1," Phase" :PRINT#1," No 01" 

1130 LOCATE 9,24:PRINT "X INITIALISA 

TION X" 

1140 GOSUB 3350:CLS#1:PRINT#1," Phase":P 

RINT#1," No 02": GOSUB 4100 

1150 K1*="X PAS DE TITRE X Titre ":K2$- 

=" Pas de titre X TITRE r':BORDER 15 

1160 DIM M$(9,17):C7.=0:CALL &A270,eCX:ZZ 

$=STRING$(40,46) 

1170 ! MENU, 0,10, 9: ON CX GOTO 1180,1240,1 

680,2550 



1 180 ' 

1190 'Editeur des menus déroulants 
1200 ' 

1210 MODE 2: INK 0,15: INK 1,0:FOR I7.=0 TO 
9:F0R J7.=0 TO 17:M$(I7.,J7.)=ZZ$:NEXT 
1220 NEXT:FLAG7.=1:G0SUB 3000 
1230 GOTO 1170 

1240 ' 

1250 'Option de Sauvegarde des données 
et de la routine 

1260 ' 

1270 ! MENU, 5, 6, 10: ON CX GOTO 1320,1280 

1280 MODE 2: INK 0,15: INK 1,0:GOSUB 3270: 

LOCATE 9,1:PRINT"MINI-MAC XSauvegar"; 

1290 PRINT"deXMINI-MAC":MOVE 60,380:DR 

AWR 51 1,0: LOCATE 55,1 

1300 PRINT"Catalogue drive A":WINDOW 12, 

72,6,20:CAT:CALL &BB06 

1310 WINDOW 1,80, 1,25: GOTO 1170 

132© MODE 2: INK 0,15: INK i,0:GOSUB 3270: 

LOCATE 9,l:PRINT"MINI-MACXSauvegar"; 

1330 PRINT"deXMINI-MAC":MOVE 60,380:DR 

AWR 511,0: LOCATE 54,1 

1340 PRINT"Sauvegarde routine":GOSUB 327 

0:1F FLAGX THEN 1350 ELSE GOTO 2600 

1350 LOCATE 14,9:PRINT"Implantation de 1 

a routine assembleur de fcA250 a &.A650" 

1360 FX=0:FOR MX=0 TO 9:FX=FX+3 

1370 IF TX(MX)=1 THEN FX=FX+LEN(M$(MX,0) 

)+l 

1380 FOR IX=1 TO NX (MX) 

1390 FX=FX+LEN (M* (MX, IX) ) +1 

1400 NEXT I7.:FX=FX+1:NEXT MX 

1410 LOCATE li,ll:PRINT"Ifflplantation du 

texte des menus déroulants de &"HEX$((îiA 
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26F-F7.))" a &A26F." 

142« LOCATE 8,13:PRINT"Localisation du b 

uffer de sauvegarde de l'écran de &"HEX$ 

(&A26E-FX-BUFFERX)" a rHEX*(S<A26F-FX)". 

" : MEMOX= (&A26E-F7.-BUFFERX) 

1430 LOCATE 19,15:PRINT"Consommation de 

setoire vive des menus : &"HEX$(8<A670-iS( 

A26E-F7.-BUFFERX)): LOCATE 9,6:CALL ?yBB06 

1446 PRINT"X AVERTISSEMENT: Cette option 

aboutie sur un RESET de 1 Amstrad X' 
1450 FOR H7.=l TO 3000:NEXT: iMENU,6, 14, 13 
:0N CX GOTO 1170,1460 
1460 LOCATE 24, 19: PRINTT REORGANISATION 

DE L'ESPACE MEMOIRE X° 
1470 ADX=&A26F-F7.:A1X=Î<A654:DE6X=ADX 
1480 FOR M7.=0 TO 9:ADTX(MX)=AD7.:P0KE AD7. 
,LARX(MX):POKE AD7.+l,TX(MX):POKE AD7.+2,N 
7.(M7.):AD7.=AD7.+3 

1490 POKE A1X,ADTX(MX)-(256*UNT(ADTX(MX 
)/256))) 

1500 POKE Ar/.+l,INT(ADT7.(M7.!/256-(&FF00) 
):A17.=A17.+2 

1510 IF TX(MX)=1 THEN FOR J7.=l TO LEN(M$ 
(MX, 0) ) :P0KE AD"/., ASC (MID$ (M$ (MT.,0) , J7., 1 ) 
):ADX=ADX+1:NEXT JX:FOKE ADX,0:ADX=ADX+1 
1520 FOR IX=1 TO N7.(M7.) 
1530 FOR J7.=l TO LEN(M$(MX,IX) ):POKE ADX 
,ASC(MID$(M$(MX, 17.) , JX, 1) ) :AD7.=AD7.+1:NEX 
T JXîPOKE ADX,0:ADX=ADX+1 
1540 NEXT:POKE ADX,fcFF:ADX=ADX+l:NEXT 
1550 POKE &A652, MEMO - /.- (256* ( INT (MEM07./25 
6))) 

1560 POKE &A653,INT(MEMOX/256-(&FF00)> 
1570 LOCATE 24,19:PRINT"J SAUVEGA 
RDE EN COURS X' 
1580 SAVE '"MENUS. BIN",b,DEBX,S<A670-DEB7. 
1590 MODE 2:INK 0,20: INK 1,0:GOSUB 3270: 
LOCATE 9,1:PRINT"MINI-MAC XSauvegar"; 
1600 PRINT"deXMINI-MAC":MOVE 60,380:DR 
AWR 511,0:LOCATE 69,l:PRINT"Fin" 
1610 WINDOW 12,72,6,20:PRINT"Pour que vo 
us puissiez utiliser les menus déroulant 
s dans" 

1620 PRINT"vos propres applications, je 
vous rappelle que vous devrez" 
1630 PRINT"y incorporer les 2 lignes sui 
vantes:": PRINT: PRINT 

1640 PRINT:PRINT" 10 CLEAR:MEMO 
RY &"HEX$(DEBX-1) ":L0AD"CHR$(34) " 'MENUS. 
BIN"CHR$(34) 

1650 PRINT" 20 CHOIX7.=0:CALL &A 
270,eCHOIXX":PRINT:PRINT:PRINT:PRINT 
1660 PRINT.-PRINT" XPressez 
une touche pour finirT" 
1670 CALL !<BB06:CALL 

1680 ' 

1690 'Mode d'emploi détaille 

1700 ' 

1710 ÎMENU, 1,13, 13:IF CX=2 THEN WX=8 ELS 
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E W7.=l 

1720 IF WX=1 THEN MODE 2: INK 0,15: INK 1 

,0:WINDOW#1, 9,71, 1,25 

1730 PRINTtWX," M 

ODE D EMPLOI " : PRINTtWX: PRINTtWX 

1740 PRINT#WX," Mini-mac est un edit 

eur-gestionnaire de menus déroulants." 

1750 PRINTtWX, "La première partie de cet 

utilitaire est une routine en langa-" 
1760 PRINT#W7.,"ge machine utilisable gra 
ce a la rsx IMENU,No,X,Y. La seconde" 
1770 PRINTtWX, "partie est un éditeur en 
basic pour composer les textes des" 
1780 PRINTtWX, "menus (10 menus maximum n 
umerotes de a 9).":PRINT#W7. 
1790 PRINTtWX," En tant gue mode a e 
mploi nous allons simuler une petite" 
1B00 PRINTtWX, "application gui vous perm 
ettra par l'exemple d'utiliser mini-" 
1810 PRINTtWX, "mac. Soyons modeste, ce s 
era une petite calculatrice 4 opéra-" 
1820 PRINTtWX, "tions. Le menu principal 
comportera donc les options addition," 
1830 PRINTtWX, "soustraction, multiplicat 
ion, division et Quitter." 
1B40 PRINTtWX, " Un second menu de co 
nfirmation apparaîtra si quitter est" 
1850 PRINTtWX, "valide et présentera les 
options confirmation et annulation." 
1860 IF WX=8 THEN GOTO 1930 ELSE CALL &B 
B06 
1870 LOCATE 26,20:PRINTT Voici l'aspect 

du menu No 0T": IMENU, 2, 12, 7 
1880 LOCATE 25,20:PRINT'Xvous ave: choi 
si l'option No"STR$(CX)"X' 
1B90 CALL &.BB06 

1900 LOCATE 25, 20: PRINT" X Voici l'aspec 
t du menu No IX ": IMENU, 3, 47, 8 
1910 LOCATE 25,20:PRINT"XVous avez choi 
si l'option No"STR$(CX)"X' 
1920 CALL &BB06:IF WX=1 THEN CLS:LOCATEt 
1,1,1 
1930 PRINTtWX," Avant d'utiliser ces 

menus vous allez les créer au moyen" 
1940 PRINTtWX, "de l'éditeur de mim-mâc 
(au lancement du programme c'est bien" 
1950 PRINTtWX, "sur l'option EDITEUR du m 
enu principal). ": PRINTtWX 
i960 PRINTtWX," Notre menu No ayan 
t un titre, pressez espace puis enter" 
1970 PRINTtWX, "pour valider votre choix. 

A la question titre, repondez" 
1980 PRINTtWX, "CALCULETTE. Ensuite rempl 
issez le nom des cinq options comme" 
1990 PRINTtWX, "convenu. Pour indiquer qu 
e le menu No est achevé, pressez" 
2000 PRINTtWX, "Q majuscule (suivi de ent 
er). Le texte de menu est termine." 
2010 PRINTtWX 



2020 PRINTtWX," Mi ni -mac va alors vo 
us indiquer sa surface. En effet vous" 
2030 PRINTtWX, "avez remarque qu'un menu 
déroulant n'altère pas le contenu de" 
2040 PRINTtWX, "l'écran a sa fermeture ca 
r il sauvegarde dans un buffer ce qui" 
2050 PRINTtWX, "se trouve ou il va appara 
itre puis, le restitue a sa fermeture." 
2060 PRINTtWX," De ce fait plus la s 
urface des menus est grande et plus" 
2070 PRINTtWX, "la routine nécessite de m 
emoire pour fonctionner. ":PRINTtWX 
2ÔB0 PRINTtWX, " Le programme vous de 
mande ensuite le mode écran MAXIMUM" 
2090 PRINTtWX, "dans lequel vous afficher 
ez votre menu et ce pour la même rai-" 
2100 PRINTtWX, "son car en mode la surf 
ace est 4 fois supérieure au mode 2" 
2110 PRINTtWX, "En cas de doute mettez ie 

mode car si vous consommez plus de" 
2120 PRINTtWX, "place qu'il n'y en a de r 
eservee, la routine sera écrasée par" 
2130 PRINTtWX, "le buffer de sauvegarde e 
t votre CPC plantera !!!" 
2140 CALL !(BB06:IF WX=1 THEN CLS:LOCATEt 
1,1,1 

2150 PRINTtWX," Pour le menu No 1, p 
rocedez de la même façon en ne met-" 
2160 PRINTtWX, "tant pas de titre. Pour 1 
es deux menus vous choisirez 2" 
2170 PRINTtWX, "comme mode écran MAXIMUM 
(j'insiste). Pour quitter l'éditeur," 
2180 PRINTtWX, "pressez la touche F et vo 
us reviendrez au menu principal." 
2190 PRINTtWX 

2200 PRINTtWX," L'édition étant term 
inee passez a la sauvegarde de vo-" 
2210 PRINTtWX, "tre travail. C'est grâce 
a cette opération gue vous pourrez" 
2220 PRINTtWX, "utiliser les menus dans v 
os applications personnelles." 
2230 PRINTtWX 

2240 PRINTtWX," En premier lieu, un 
écran 'vous décrira l'occupation" 
2250 PRINTtWX, "mémoire de la routine et 
l'espace utile en fonctionnement." 
2260 PRINTtWX, "Un menu vous demandera al 
ors confirmation de la sauvegarde." 
2270 PRINTtWX, "Si vous êtes O.k, elle se 
ra effectuée. Un autre écran vous" 
2280 PRINTtWX, "indiquera deux lignes BAS 
IC que vous devrez IMPERATIVEMENT" 
2290 PRINTtWX, "insérer au début de votre 

programme. ":F'RINTtWX 
2300 CALL &BB06:IF WX=1 THEN CLS:LOCATEt 
1,1,1 

2310 PRINTtWX," UTILISATI 

ON DE IMENU,No,X,Y":PRINTtW7.:PRINTtWX 
2320 PRINTtWX," Vous allez eof in pou 



voir écrire votre programme en sui-" 
2336 PRINTtWX, "vant ces quelques directi 
ves. Tout d'abord recopiez les deux" 
2346 PRINTtWX, "lignes Basic qui ont ete 
affichées a la fin de la sauvegarde." 
2350 PRINTtWX," " (et encore une fois pen 
se2 a passer en mode 2 avant RUN) " 
236Ô PR I NTtWX , " 10 CLEAR : MEMORY 
&A1ED:L0AD"CHR$(34) ; 
2370 PRINT#WX, "! MENUS. BIN"CHR$ (34) 
2380 PRINTtWX," 20 CHOIXX=0:CAL 
L lA27e,eCH0IXX" 

2390 PRINT#W7., " On affiche le menu N 
o au>: coordonnées 10,14" 
2400 PRINTttWX, " 30 ! MENU, 0, 10, 1 
4" 

2410 PRINTtWX, " Test de la réponse d 
ans CHOIXX" 

2420 PRINTtWX," 40 ON CHOIX'/. GO 
TO 50,60,70,80,90" 
2430 PRINTtWX, " Addition" 
2440 PRINTtWX, " 50 ' INPUT A: INPU 
T B:PRINT A+B:G0T0 30" 
2450 PRINTtWX," Soustraction" 
2460 PRINTtWX," 60 INPUT A: INPU 
T B: PRINT A-B:B0T0 30" 
2470' PRINTtWX," Multiplication" 
2480 PRINTtWX," 70 INPUT A: INPU 
T B: PRINT A*B:G0T0 30" . 
2490 PRINTtWX, " Division" 
2500 PRINTtWX," 80 INPUT A: INPU 
T B: PRINT A/B:G0T0 30" 
2510 PRINTtWX," Quitter (On affiche 
le menu No 1 en X=14 et Y=15) " 
2520 PRINTtWX, " 90 ! MENU, 1,14,1 
5: IF GH0IXX=2 THEN 8OT0 30 ELSE END" 
2530 PRINTtWX: PRINTtWX, "Vous êtes mainte 
nant prêt a utiliser MINI-MAC. Bon coura 

ee." 

2540 IF WX=1 THEN CALL &BB06:GOTO 1170 E 

LSE GOTO 1170 

2550 ' 

2560 "Retour au BASIC 



258» IMENU,8 t 14,12:0N CX GOTO 1170,2590 

259Ô INK 1,15: ÏNK 0,1: BORDER 1 : MODE 1:EN 

D 

2600 LOCATE 15, 12: PRINTT Option impossi 

ble, aucun menu n'ayant ete édite. X' 

2610 FOR HX=1 TO 4500:NEXT:GOTÛ 1170 

2620 ' 

2630 Masque de saisie et détection des 
erreurs 

2640 ' 

2650 IF TX(MX)=1 THEN LOCATE 37,3:LINE I 

NPUT M$ ELSE GOTO 2690 

2660 IF LEN(M$)>40 THEN LOCATE 37,3:PRIN 

T STRING*(44,32):G0TD 2620 

2670 IF M$="" THEN 2620 



2680 M$(n7.,0)=M$ 

2690 FOR JX=1 TO 17 

2780 LOCATE 20,JX+4:LINE INPUT M$ 

2710 IF LEN(M$)>40 THEN LOCATE 20,J'/.+4:P 

RI NT ZZ$+" ":G0T0 2700 

2720 IF M$="Q" THEN NX ( MX ) = JX- 1 : JX= 17 : GO 

TO 2770 

2730 'IF M$="" AND M$(MX,J'/.)=ZZ$ THEN M$( 

M'/.,JX)="" 

2740 IF M$=" H AND M*(MX,JX)OZZ$ THEN M* 

=M$(MX,JX) 

2750 M$ (MX, JX)=M$: LOCATE 64,JX+4:PRINT"L 

ongueur"; 

2760 PRINT STR$(LEN(M$(M'/.,JX))) 

2770 NEXT:RETURN 

2780 ' 

2790 'Récapitulatif pour chaque menu, 

demande du mode écran 
2300 ■ 

2810 FOR JX=0 TO 17: IF M*(MX,JX)=ZZ$ THE 

N 2840 

2820 IF (TX(M7.)=1 AND Jï=9) THEN i MENU, 7 

,54,20: if cx=1 then ctx=1 else ctx=0 
2830 if len(m$(mx,jx))>=larx(mx) then la 
r7.(mx)=len(m$(mx,j:/.)> 

2840 NEXT 

2850 IF CTX=1 THEN IF LEN(M*<MX,0)KLARX 

(MX) THEN M*(MX,0)=STRING$((LARX(M'/.)-LEN 

(M$(M7.,0)))/2,32!+M$(MX,0) 

2860 LOCATE 19,24:PRINT"Largeur du menu" 

STR*(LARX(MX)+2>" colonnes,"; 

2870 PRINT" hauteur"STR$(NX(MX)+2+T'/.(M7.) 

)" lignes." 

2880 LOCATE 29,25 

2890 PRINT "Surface de"STR$((LARX(MX)+2) 

*(2+N7.(MX)+TX(MX))>; 

290t3 PRINT" caractères. ":GOSUB 3330:FOR 

HX=1 TO 5000: NEXT:! MENU, 4, 56, 18 

2910 IF CX=1 THEN MODECX=l 

2920 IF CX=2 THEN MODECX=2 

2930 IF CX=3 THEN M0DECX=4 

2940 BUF'/.= (LARX(MX)+4)*(2+NX(MX)+TX(M7.) ) 

*8*M0DECX 

2950 IF BUFX>=BUFFERX THEN BUFFERX=BUFX 

2960 FOR HX=23 TO 25:L0CATE 1,HX:PRINT S 

TRING$(78,32):NEXT 

2970 LOCATE 14,24:PRINT*En node"STR*(3-C 

'/.)" ce menu nécessite un buffer"; 

2980 PRINT " de"STR$(BUFX) H octets." 

2990 RETURN 

3000 ' 

3010 'Option de saisie des caractéristi- 
ques des menus déroulants 

3020 ' 

3030 FOR M'/.=0 TO 9: GOSUB 3080: IF UPPER*( 
A$K>"F U THEN GOSUB 2620:6OSUB 2780:ELSE 
M7.=9:G0T0 3070 

3040 LOCATE 28,22:PRINT'XEtes vous d'ac 
cord (O/NIIT 



3050 A$="":WHILE A$O"0" AND A$(>"N":A$= 

UPPER$(INKEY*):WEND 

3060 IF A$="N" THEN M7.=M7.-1 ' 

3070 NEXT: RETURN 

3080 ' 

3090 'Affiche le contenu des menus 

déroulants (pour l'édition et les 
modifs) 

3100 ' 

3110 MODE 2: INK 0,15: INK 1,0: LOCATE 9,1: 
PRINT"MINI-MAC X Editeur T'; 
3120 PRINT" MINI-MAC Edition du 
menu numercrT'STRSfMXPX 
3130 MOVE 60,380:DRAWR 511,0 
3140 LOCATE 4,3:PRINT K1*;:TX(MX)=0 
3150 PRINT" (Choisir=€SPACE, vali 
der=ENTER et finir=F)" 
3160 A$="":WHILE A$<>" " AND UPPER*(A*K 
>"F" AND A$OCHR$(13):A$=INKEY*:WEND 
3170 IF A$=" " AND TX(MX') THEN LOCATE 4, 
3:PRINT K1*:TX(MX)=0:GOTO 3190 
3180 IF A$=" " AND NOT TX(M7.) THEN LOCAT 
E 4,3:PRINT K2$:T7.(MX)=1 
3190 IF UPPER$(A$)="F" THEN 3260 
3200 IF A$=CHR$(13i THEN 3210 ELSE GOTO 
3160 

3210 GOSUB 3270: FOR J7.=l TO 17: LOCATE 6, 
J7.+4:PRINT"0ption No"STR$(JX) :NEXT 
3220 LOCATE 34,22:PRINT"Î Q pour finir I 

■ 

3230 FOR JX=1 TO 17-.L0CATE 20, JX+4: PRINT 
M» (MX, JX)+STRING$(40-LEN(M*(MX, JX) ) ,461 
:NEXT 

3240 IF TX(MX)=1 THEN LOCATE 31,3:PRINT 
"Titre "M$(M7.,0i+STRING*(40-LEN(M*(MX,0) 
),46) 

3250 IF TX(M'/.)=0 THEN LOCATE 31,3:PRINT 
STRING$(50,32) 
3260 RETURN 

3270 ' 

3280 'Trace du cadre 

3290 ' 

3300 LOCATE 3,4:PRINT CHR$(150)+STRING*( 

73,154)+CHR$(156) 

3310 FOR IX=0 TO 17:L0CATE 3,IX+5:PRINT 

CHR$(149) 

3320 LOCATE 77, IX+5: PRINT CHR$( 149): NEXT 

3330 LOCATE 3,22:PRINT CHR$(147)+STRING$ 

(73,154)+CHR$(153) 

3340 RETURN 

3350 ' 

3360 'Implantation du code objet 

(1024 octets) Bon courage !!! 
33 7ô ■ 

3380 ADX=&A270: RESTORE 3460 

3390 CHECKSUM7.=0:JX=JX+1 

3400 FOR IX=« TO 15:READ A$:POKE ADX,VAL 

(T'+A$):ADX=ADX+1 

3410 CHECKSUMX=CHECKSUMX+VAL ( "fc"+A$) 
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3420 NEXT 

3436 READ S0MME7. 

3446 IF S0MME7.OCHECKSUM7. THEN PRINT"I1 

y a une erreur dans les datas. ":PRINT"ve 

rifiez la ligne No"STR$(((J7.-l)*10)+34ô0 

):END 

3450 IF SQMME7.=1145 THEN RETURN ELSE GOT 

3390 

3460 DATA DD,56,01,DD,5E,00,ED,53,2E,A6, 

01,83,A2,21,8D,A2,1785 

3470 DATA C3, Dl , BC, 88, A2, C3, 91 , A2, 4D, 45, 

4E,D5,00,00,00,00,1829 

3480 DATA 00,FE,03,C0,DD,7E,00,32, 1C,A6, 

DD,7E, 02,32, 1A,A6,1631 

3490 DATA DD,7E,04,32,30,A6,87, 26, 00,6F, 

11,54,A6, 19,22,83, 1404 

3500 DATA A2,DD,2A,34, 12, DD,7E, 00,32,28, 

A6,DD,7E,02,32,2A,1539 

3510 DATA A6,CD,3C,A3,CD,20,A5,CD,6E,A5, 

CD, 2A, A4, CD, AD, A4, 2429 

3520 DATA CD,F0,A4,CD,9D,A5,CD,4D,A5,CD, 

12,A6,C9,EB,29,29,2490 

3530 DATA 29,EB,C9,E5,CD,11,BC,EB,30,02, 

29, 29, 20, 01, 29, EB, 1792 

3540 DATA E1,C9,7A,2F,57,7B,2F,5F,13,C9, 

CB,2D,CB,BD,CB,2C,2054 

355ô DATA D0,CB,FD,C9,0û,08,C5,EÛ,5B,28, 

A6,CD,E3,A2,43,2A,2313 

3560 DATA 26,A6,7E,EE,FF,77,23,22,26,A6, 

10,F3,C1,ED,5B,28,2035 

3570 DATA A6,CD,E3,A2,2A,26,A6,ED,52.22, 

26, A6,l 1,00, 08, 19, 1613 

3580 DATA 22,26,A6,10,D1,2A,24,A6,22,26, 

A6,C9,ED,5B,1A,A6,1666 

3590 DATA 1B,CD,DD,A2,CD,E3,A2,ED, 53,36, 

A6,ED,5B,1C,A6,CD,2476 

3600 DATA DD,A2,EB,29,EB,21,9F,01,ED,52, 

EB,ED,53,3A,A6,ED,2422 

3610 DATA 5B,28,A6,13,13,CD,DD,A2,1B,CD, 

E3,A2,2A,36,A6,19,1831 

3620 DATA 22,38,A6,ED,5B,2A,A6,13,13,DD, 

7E,01,B7,28,01,13,1421 

3630 DATA CD,DD,A2,EB,29,EB,CD,F2,A2,2A, 

3A.A6, 19,23, 22,3C, 2128 

3640 DATA A6,11,03,00,CD,E3,A2,2A,36,A6, 

19,22,3E,A6, 11,03, 1349 

3650 DATA 00,CD,E3,A2,2A,38,A6,ED, 52,22, 

40,A6, 11, 08,00, CD, 1671 

3660 DATA E3,A2,2A,36,A6,19,22,42,A6,11, 

08,00,CD,E3,A2,2A,1603 

3670 DATA 38,A6,ED,52,22,44,A6,2A,3A,A6, 

DD,7E,01, 67,28,04,1650 

3680 DATA 06, 14, 18,02,06,04,28, 10,FD,22, 

46,A6,2A,3C,A6,23,0947 

3690 DATA 23,23,23,23,22,48,A6,2A,3A,A6, 

CD,FA,A2,22,4E,A6,1573 

3700 DATA ED,5B,2A,A6,13,13,DD,7E,01,B7, 

28,01, 13, CD, DD,A2, 1753 

3710 DATA ED,53,4A,A6,2A,3A,A6,DD T 7E,01, 

34 



67,28,04,06,20,18,1463 
3720 DATA 02,06, 10,28, 10, FD, CD, FA, A2, 22, 
22,A6,ED,58,28,A6,1721 
3730 DATA 13,13,CD,E3,A2,ED,53,4C,A6,C9, 
ED,56,36,A6,2A,3A,2043 
3740 DATA A6,CD,EA,86,ED,5B,38,A6,2A,3A, 
A6,CD,F6,66,ED,5B,2574 
3750 DATA 38,A6,2A,3C,A6,CD,F6,B6,ED,58. 
36,A6,2A,3C,A6,CD,2149 
3760 DATA F6,BB,ED,5B,36,A6,2A,3A,A6,CD, 
F6,BB,ED,5B,42,A6.2445 
3770 DATA 2A,46,A6,CD,EA,B6,ED,56,3E,A6, 
2A,46,A6,CD,F6,B8,2376 
3780 DATA ED,5B,3E,A6,2A,48,A6,CD,F6,6B, 
ED,5B,42,A6,2A,48,2148 
3790 DATA A6,CD,F6,BB,ED,5B,44,A6,2A,46, 
A6,CD,EA,BB,ED,5B,2598 
3800 DATA 40,A6,2A,46,A6,CD,F6,B8,ED,5B, 
40,A6,2A,48,A6,CD,2189 
3810 DATA F6,66,ED,56,44,A6,2A,48,A6,CD, 
F6,BB,C9,ED,5B,1A,2468 
3820 DATA A6, 13,ED,53, 1E,A6,ED,5B,1C,A6, 
13,ED,53,20,A6,DD,1981 
3830 DATA 7E,01,B7,28,2A,13,ED,53,20,A6, 
11,08,00,CD,E3,A2,1548 
3840 DATA 2A,36,A6, 19,EB,2A,3A,A6,2B,2B, 
28,28,28,CD,C0,BB,1587 
3850 DATA DD,23,DD,7E,02,B7,28,Ô7,CD,FC, 
BB,DD,23,18,F3,C9,2203 
3860 DATA .3A,1E,A6,67,3A,20,A6,6F,CD,75, 
BB,DD,7E,03,B7,28,1806 
3870 DATA 07,CD,5A,BB,DD,23, 18,F3,DD,23, 
DD,7E,03,FE,FF, 28,2167 
3880 DATA 0E,3A,20,A6,3C,32,20,A6,6F,3A, 
1E,A6,67,18,D9,C9,1488 
3890 DATA ED,5B,1A,A6, 16,CD,DD,A2,2A,4E, 
A6,CD,1D,BC,22,50,1957 
3900 DATA A6,ED,5B,52,A6,3A,4A,A6,47,C5, 
■E5,3A,4C,A6,3C,3C,1957 
3910 DATA 4F,06,00,ED,B0,E1,CD,26,BC,C1, 
1O,ED,C9,ED,5B,50,2209 
3920 DATA A6,2A,52,A6,3A,4A,A6,47,C5,D5, 
3A,4C,A6,3C,3C,4F,1734 
3930 DATA 06,00,ED,B0,EB,E1,CD,26,BC,EB, 
C1,10,EB,C9,3A,28,2288 
3940 DATA A6,47,3A,1A,A6,80,32,32,A6,3A, 
2A,A6,47,47,3A,1C,1375 
3950 DATA A6,80,5F,DD,7E,01, B7, 28,01, 1C, 
3A,32,A6,57,3A,1A,1434 
3960 DATA A6,67,25,3A,1C,A6,6F,2D,97,CD, 
44,BC,C9,ED,5B,1A,1881 
3970 DATA A6,CD,DD,A2,2A,22,A6,CD,1D,BC, 
22,24,A6,22,26,A6,1892 
3980 DATA CD,04,A3,3E,01,32,2C,A6,CD,09, 
BB,30,FB,FE,0D,C8,1862 
3990 DATA FE,F0,CC,F0,A5,FE,F1,CC,CC,A5, 
18,EC,3A,2C,A6,47,2770 
4000 DATA 3A,2A,A6,B8,C8,CD,04,A3,2A,26, 
A6, 11,50,00, 19,22, 1424 



4O10 DATA 26,A6,22,24,A6,2A,2C,A6,23,22, 

2C,A6,CD,04,A3,C9,1544 

4O20 DATA 3A,2C,A6,FE,01,C8,CD,04,A3,2A, 

26, A6, 1 1,4F, 00, ED, 1674 

4030 DATA 52,22,26,A6,22,24,A6,2A,2C,A6, 

2B,22,2C,A6,CD,04,1304 

4040 DATA A3,C9,3A,2C,A6,2A,2E,A6,77,C9, 

00, 00, 00*00, 00, 00, 1206 

4O50 DATA 00,00,00,00,00,00,00,00,00,00, 

0*3 , 00 , 1 , 00 , 00 , 00 , 000 1 

4060 DATA 00, 00, 00, 00, 00, M, 00, 00, 00, 00, 

00 , 00 , 00 , 00 , 00 , 00 , 0000 

4070 DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 - 

00 ,00,00, 00 ,00,00, 0000 

4080 DATA 00,00,67,96,00,90,41,90,65,90, 

AA,90,C6,9Ô, 13,91, 1751 

4090 DATA 5E, 91, 7C,91,9E,91,BD, 91,00,00, 

00, 00', 00, 00, 00, 00, 1 145 

4100 ' 

4110 'Implantation du texte des adresses 

&900« a &96B6 (1718 caractères, 1 
4120 ; 

4130 AD"/.=&9000: RESTORE 4230 

4140 READ LAR7.:IF LAR7.=0 THEN RETURN 

4150 READ T'/.,N7.:POKE AD7.,LAR7.:PÛKE AD7.+1 

,rc 

4160 POKE ADV.+2, N7.: AD7.=AD"/.+3 

4170 READ m 

4180 IF M$="FIN" THEN POKE AD"/.,&FF:AD7.=A 

D7.+1:8QTQ 4140 

4190 FOR I"/.=l TO LEN(M$) 

4200 A7.=ASC(MID*(M$,I7.,l)):POKE AD7.,A7.:A 

D7.=AD7.+1 

4210 NEXT 17. 

4220 POKE AD7.,0:AD7.=AD7.+1:GOTO 4170 

4230 DATA 14, 01, 04, MENU PRINCIPAL, Editeu 

r, Sauvegarde 

4240 DATA Mode d'emploi, Retour basic,FIN 

4250 DATA 15, «0, 02, Sans imprimante, Avec 

imprimante, FIN 

4260 DATA 14, 01, 05, CALCULETTE, addition, s 

oustraction 

4270 DATA uultiplication, division, quitte 

r,FIN 

4280 DATA 12, 00, 02, confirmation, annulati 

on, FIN 

4290 DATA 18,01, 03, MODE d'utilisation," 

MODE 2 (640*200) " 

4300 DATA " MODE 1 (320*20«)% " MODE ( 

160*200)", FIN 

4310 DATA 26,1,2," * DISQUETTE. *", 

" Effectuer une sauvegarde" 

4320 DATA " Catalogue du drive A", FIN 

4330 DATA 13,00,2," Retour menu"," Sauve 

garder", FIN 

4340 DATA 16,00,2," Centrage titre "," R 

etour menu", FIN 

4350 DATA 14,00,2," Retour menu"," Retou 

r Basic", FIN, 



ENFIN REEDITES ! 




Les quatre premiers 
numéros de CPC 
en un seul livre 
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De nombreux 
programmes de jeux 
et utilitaires, des 
conseils pratiques, 
trucs et astuces, 
schémas, des 4 
premiers n° de CPC 
réunis en un seul 
ivre. 
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Ci-joint chèque de à l'ordre de Bretagne Edit' Presse 

à retourner à Bretagne Edit' Presse - La Haye de Pan - 35170 BRUZ 
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